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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEBM6Ev-ymPUIrEx4SjVDZlpWP4z3ZnHbM0LqMxXZB9FYoA6RBo63CRgJw0wDmcm0RF2CCawQAUCCO0Fmt4xlt3iShQyWZ7XP5XF_Bz06eBfIVbYGbkpLtl7DHWjnFztJrt4eNefAxl8nE/s320/VBA_Andre_Luiz_Bernardes-780899.jpg)
Nenhum comentário:
Postar um comentário