Hi Paul,

Sub TestNames()
Dim Nme As Name

For Each Nme In ThisWorkbook.Names
If Nme.Name Like "*!*" Then
MsgBox Nme.Name & vbTab & "Sheet Level Name"
Else
MsgBox Nme.Name & vbTab & "Workbook Level name"
End If
Next Nme

End Sub

---
Regards,
Norman



"Paul Smith" wrote in message
...
I understand that if I call the workbook.names collection I am calling a
collection of all names that are present in the workbook.

What I want to be able to distinguish between which names are workbook
level ones and which are worksheet level ones!

PWS