Problem with looping through checkboxes in Excel

[direktoren]

Hi

I'm trying to get the following to work;

For x = 1 To 28
For Each CheckBox(x) In sSheet
    If Not CheckBox(x) = True Then
        For i = 6 To Sheet3.Cells(1, 1).End(xlToRight).Column
            If Sheet3.Cells(1, i).Value = CheckBox(x).Caption Then
                Sheet3.Columns(i).EntireColumn.Delete
            End If
        Next i
    End If
Next CheckBox
Next x

however this doesn't work - any alternatives?