Slet makeret incl. Chekbokse

Det skal være i en makro

prøv:

Sub Slet()
ActiveSheet.Shapes.Range(Array(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)).Delete
Range("A12:I31").Clear
Range("A1").Select
End Sub

Jeg havde fundet en løsning, jeg havde omdøbt alle chekboksene så de hed det samme når man kopieret dem. Så kunne jeg slette dem med den her kode.

Sub Sletter_Afkrydsningsfelt()
    ActiveSheet.Shapes("Afkrydsningsfelt a").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt b").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt c").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt d").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt e").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt f").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt g").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt h").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt i").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt j").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt k").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt l").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt m").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt n").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt o").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt p").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt q").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt r").Select
    Selection.Delete
    ActiveSheet.Shapes("Afkrydsningsfelt s").Select
    Selection.Delete
    '*******************
    Range("A12:I31").Select '***Maker og sletter andre data
    Selection.ClearContents
End Sub
'***************************************************
Men din kode er meget mere fliksibel, hvis du ligger et svar få du dine point.

Tusind tak

ok velbekom