Hallo zusammen,

ich möchte gern in meinem Excel-Sheet mit einem Button alle meine Häkchen über mehrere Datenblätter löschen.

Mein aktueller VBA-Code sieht folgendermaßen aus:
 

Sub WorksheetLoop()
Dim WS_Count As Integer
Dim m As Integer
Dim i As Integer
Dim k As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For m = 1 To WS_Count
Sheets(m).Select
For i=10 to k
ActiveSheet.Shapes("Checkbox" & i).Value = xlOff
Next i
Next m
End Sub

Leider funktiert es nicht und ich finde einfach den Fehler nicht.

Woran könnte das liegen?