Function FindName(sName, Optional inWorkbook = "This") As Boolean
' Searchs for a specified name in a file (Excel)
' Needs FindFile
FindName = False
If inWorkbook = "This" Then inWorkbook = ThisWorkbook.Name
If FindFile(inWorkbook) Then
For i = 1 To Workbooks(inWorkbook).Names.Count
If Workbooks(inWorkbook).Names(i).Name = sName Then
FindName = True
Exit For
end if
Next i
End If
End Function
' Searchs for a specified name in a file (Excel)
' Needs FindFile
FindName = False
If inWorkbook = "This" Then inWorkbook = ThisWorkbook.Name
If FindFile(inWorkbook) Then
For i = 1 To Workbooks(inWorkbook).Names.Count
If Workbooks(inWorkbook).Names(i).Name = sName Then
FindName = True
Exit For
end if
Next i
End If
End Function
sName, Optional inWorkbook
Views 3,099
Downloads 1,408
CodeID
DB ID