FindName

Finds a name in a workbook, returns true or false

CodeFunctionName
What is this?

Public

Tested

Original Work
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

sName, Optional inWorkbook

Views 3,099

Downloads 1,408

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v1.0

Sunday
June
10
2018
Tags
Needs