excel 2016 /2007 vba problem

Følgende kode virker perfekt i 2016 men ikke i 2007

Sub SletBoxe()
    With ActiveSheet
        For Each myCB In .CheckBoxes
            Set rCell = Range(Mid(myCB.Name, 3))
            rCell.Value = ""
            rCell.ColumnWidth = 8.43
        Next
        .CheckBoxes.Delete
    End With
End Sub


.CheckBoxes.Delete    ' virker i 2007, men når jeg med:
For Each myCB In .CheckBoxes
'vil bladre gennem alle checkbokse, så virker det pludseligt ikke.

mystisk!!

Jan