ich will mehrere Tabellenblätter markieren, da diese Blätter später gedruckt werden sollen.
Leider klappt Worksheets(I).Name.Select nicht. (Fehler:Objekt erforderlich)
Weiß jemand wie ich das richtig machen kann
For I = 1 To Worksheets.Count '
'Wenn an der 3.letzten Stelle des Blattnamens ein _ steht, dann das Blatt markieren
If Mid(Worksheets(I).Name, Len(Worksheets(I).Name) - 2, 1) = "_" Then
Worksheets(I).Name.Select
End If
Next
Vielen Dank im Voraus
Gruß Horst