FindName

Finds if a name (Range name) is found in a certain workbook or not
Workbook is expected to be open in same Excel session

Function FindName(Name, Optional FileName = "This") As Boolean
 FindName = False
 If FileName = "This" Then FileName = ThisWorkbook.Name
 If FindFile(FileName) Then
  For i = 1 To Workbooks(FileName).Names.Count
   If Workbooks(FileName).Names(i).Name = Name Then FindName = True: Exit For
  Next i
 End If
End Function

Parameters

Name, Optional FileName

Views 125 Downloads 62

Perm link


ANmarAmdeen
283
Attachments
Sessions VBA-Excel
Revisions

v1.0