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

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


--
Gary''s Student - gsnu200826


"Rob" wrote:

> 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

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

On 14 Sty, 14:23, Rob <R...@discussions.microsoft.com> wrote:
> 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

Thank You Very Much! That Worked Perfectly!

Cheers.


"Gary''s Student" wrote:

> 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
>
>
> --
> Gary''s Student - gsnu200826
>
>
> "Rob" wrote:
>
> > 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

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



Rob wrote:
>
> 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

--

Dave Peterson