
Sub ElencaNomi()
Dim myName As Name
Dim intCount As Integer
Range("A1") = "Nome"
Range("B1") = "Indirizzo"
With Range("A1:B1")
.Font.Bold = True
.Font.Underline = True
End With
intCount = 2
For Each myName In ThisWorkbook.Names
Range("A" & intCount).Value = myName.Name
Range("B" & intCount).Value = myName
intCount = intCount + 1
Next
End Sub
|
