Sub NameList()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
Debug.Print nm.Name
Next nm
End Sub
On 2002-03-22 15:30, Mudface wrote:
Depending on where you want them, the following code should work OK, Names in column A, ranges they refer to in column B. Change to where you want them displayed: -
Public Sub NameAll()
Sheet1.Range("A1").ListNames
End Sub