køre makro udfra om checkbox er SAND eller FALSK

Jeg har fået hjælp til nedenstående kode og den kører bare som den skal.

http://www.eksperten.dk/spm/823838


Jeg har tilføjet:
for alletal = 10 to 35
så den løber igennem grupperne 10-35.

Jeg har nogle checkbokse i mit ark der hedder tjek10, tjekl11, .... op til tjek35.

En checkbox for hver gruppe.
Kan jeg udvidde min kode til at løbe igennem grupperne 10-35, men kun hvis tjekboxen er sat til sand.

Den skal altså:
Køre gruppe 10, hvis tjek10 er sand
køre gruppe 11, hvis tjek11 er sand osv.

Jeger klar over at det er noget der skal defineres under FOR 10 to 35, men jeg kan ikke lige gennemskue hvad.

Beklager at jeg er fedtet med points, men det er mine absolut sidste points. :-(


Sub Flyt_til_kolonne_D()

Application.ScreenUpdating = False
Sheets("ark1").Select

Columns("K:K").Select
Selection.EntireColumn.Hidden = False
   
' løb igennem alle grupperne 10 - 35
For alletal = 10 To 35

tal = alletal 'InputBox("Indtast tal ")
RK = Cells(65000, "K").End(xlUp).Row
Range("K1:K" & RK).Find(tal, LookIn:=xlValues).Select
x1 = ActiveCell.Row
Range("K" & x1 & ":K" & RK).Find(tal, LookIn:=xlValues).Select
x2 = ActiveCell.Row
If x2 - x1 > 2 Then

' fjerner fletningen fra kolonne A:D
Range("A" & x1 + 1 & ":D" & x2 - 1).UnMerge

' kopierer fra kolonne F til D i alle celler mellem start og slutafgrænsning
Range("F" & x1 + 1 & ":F" & x2 - 1).Copy Range("D" & x1 + 1)
For t = x1 + 1 To x2 - 1

' fletter kolonne A og B
Range("A" & t & ":B" & t).Merge
Next


' sletter kolonne F i det afgrænsede område da tallene er flyttet til D
Range("F" & x1 + 1 & ":F" & x2 - 1).Select
Selection.ClearContents


End If
Next

Columns("K:K").Select
Selection.EntireColumn.Hidden = True

Application.ScreenUpdating = True
End Sub