X6 - Problme bei Ebenen steuern (Dokumentgitter)....

[KannNix]

Danke Leute....allerdings hab ich noch nie mit Macros gearbeitet, daher hab ich keine Ahnung wo ich das "If lyr.Name = "Dokumentgitter" eingeben muss ?
Soll das dann so aussehen ?

Sub Macro1()
If lyr.Name = "Dokumentgitter" Then End Sub

Edit:

Ich hab jetzt ein Macro erstellt das so heißt:
Sub Dokumentgitter()
If lyr.Name = "Dokumentgitter" Then lyr.Printable = False
End Sub

Wenn ich es dann ausführen will kommt eine Meldung Laufzeitfehler '424' Objekt erforderlich
Wenn ich dann auf "Debuggen drücke dann geht der Macro-Editor auf und die Passage If lyr.Name = "Dokumentgitter" Then ist gelb hinterlegt.
Wo liegt der Fehler ?

mfG,
Matze