Searching for a Name : Name « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Name

Searching for a Name

 
     Function IsNameInWorkbook(sName As String) As Boolean
         Dim s As String
         Dim rng As range
         Application.Volatile
         On Error Resume Next

         Set rng = Application.Caller
         Err.clear
         If rng Is Nothing Then
             s = ActiveWorkbook.Names(sName).name
         Else
             s = rng.Parent.Parent.Names(sName).name
         End If
         If Err.Number = 0 Then IsNameInWorkbook = True
     End Function
     Sub TestName()
           If IsNameInWorkbook(InputBox("What Name")) Then
           MsgBox "Name exists"
           Else
           MsgBox "Name does not exist"
           End If
     End Sub

 

Related examples in the same category