Re: Cell Name (03)

This need not be unique: in theory, several named ranges could refer to cell A1. Here is code that will output global names to the Immediate window:

Sub Test()
Dim nam As Name
Dim wsh As Worksheet
Dim wbk As Workbook
Dim rng As Range
Set wbk = ActiveWorkbook
Set wsh = wbk.Worksheets(1)
Set rng = wsh.Range("A1")
For Each nam In wbk.Names
If nam.RefersToRange = rng Then
Debug.Print nam.Name
End If
Next nam
End Sub