
Sub stampapippo()
Set pippo = Range("A1:C10")
pippo.PrintOut
End Sub |
Sub Lista_Gestione_Nomi()
[a1].ListNames
End Sub
'oppure;
Sub Lista_Gestione_Nomi_2()
Dim r As Integer, rng As Variant
For Each rng In ActiveWorkbook.Names
r = r + 1
'nome dell'intervallo
Cells(r, 1) = rng.Name
'riferimento dell'intervallo
Cells(r, 2) = "'" & rng.RefersTo
Next
End Sub |
