Sub
ShowNames()
Dim
x
As
Worksheet
Set
x = Worksheets.Add
Dim
nm
As
Name
Dim
i
As
Long
i = 1
For
Each
nm
In
Names
Cells(i, 1) = nm.Name
Cells(i, 2) =
"'"
& nm.RefersTo
i = i + 1
Next
nm
End
Sub
Tags: VBA, Excel, ABA, name, rename, list

Nenhum comentário:
Postar um comentário