wie kann ich folgenden Quelltext ohne Select Befehl darstellen?
Der Effekt des Makros soll natürlich der gleiche bleiben.
Sub Nichtausblenden()
Sheets(Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")).Select
Sheets("Januar").Activate
Range("E6:E36").Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets("Januar").Select
End Sub
Schon mal Danke im VorausArne