Check Box deaktivieren
Jochen
ich brauch mal wieder Eure Hilfe.
Ich habe folgendes Makro:
Private Sub Ausschalten()
ActiveSheet.Shapes("Check Box 31").Select
With Selection
.Value = xlOff
End With
an dieser Stelle sind noch weitere 26 Check Boxen die ich deaktivieren möchte
ActiveSheet.Shapes("Check Box 59").Select
With Selection
.Value = xlOff
End With
End Sub
Besteht die Möglichkeit alles etwas zu kürzen.Ich habe es so versucht:
ActiveSheet.Shapes("Check Box 31, Check Box 33, Check Box 33, usw.").Select
Hoffe auf Eure Hilfe und bedanke mich im Voraus.
Gruß
Jochen