[flinx]

Versuchs mit:

Sub test()
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
    If nms(r).Name = "Zellenname" Then MsgBox "existiert"
Next
End Sub