Alle Namen ausblenden
25.01.2005 16:14:01
KlausF
mit ActiveWorkbook.Names("Test").Visible = False
blende ich den Namen Test aus
Ich möchte nun alle 30 Namen der Mappe ausblenden, ohne sie
einzeln ansprechen zu müssen. Versucht habe ich:
Sub Hidden_All_Names()
On Error Resume Next
Dim nm As Name
For Each nm In ActiveWorkbook
nm.Visible = False
Next
End Sub
Funzt aber nicht. Kann mir jemand helfen?
Danke im voraus
Klaus
Anzeige