Unzulässiger oder nicht ausreichend..
Heinz
Ich habe im Sheets "MA" unteren Code eingefügt.
Nun kommt der Fehler gleich am Anfang "Unzulässiger oder nicht ausreichend definierter Verweis.
Sinn des Makros ist: Wenn ich auf Sheets "MA" gehe sollte alles wieder zurückgestellt bzw.gelöscht werden. (Schriftfarbe auf schwarz,Kommentare gelöscht usw...)
Könnte mir bitte jemand helfen?
Gruß
Heinz
Private Sub Worksheet_Activate()
Sheets("MA").Range ("C3:AG3,C7:AE7,C11:AG11,C15:AF15,C19:AG19,C23:AF23,C27:AG27,C31:AG31,C35: _
AF35,C39: AG39 , C47: AG47 ")
With .Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.ClearComments
.ClearContents
End With
End Sub