Detect if a Defined Name Exists

R

Rob

Hi. I was wondering if there was a way for a macro to detect if there was a
field name already in use for a workbook?

I already tried...
If Exist Workbooks("Export.xls").Names("DATA1") Then

As well as...
If Workbooks("Export.xls").Names("DATA1") = True Then


Thanks very much,
Rob
 
G

Gary''s Student

Function NameExist(s As String) As Boolean
Dim n As Name
NameExist = False
If ActiveWorkbook.Names.Count = 0 Then Exit Function
For Each n In ActiveWorkbook.Names
If s = n.Name Then
NameExist = True
Exit Function
End If
Next
End Function
 
J

Jarek Kujawa

adjust "sth" name to suit yr needs

Sub cus2()
Dim nom As Name

For Each nom In ActiveWorkbook.Names
If nom.Name = "sth" Then
MsgBox "Name 'sth' exists in this workbook"
End If
Next nom

End Sub
 
D

Dave Peterson

dim myName as Name

Set myName = nothing
on error resume next
set myname = Workbooks("Export.xls").Names("DATA1")
on error goto 0

if myname is nothing then
'doesn't exist
else
'does exist
end if
 
Top