Handling Multiple Checkboxes with one code

[KyleJackMorrison]

Hey,

I would like some help with making this code below work for the 30 checkbox's I have. Is there a way to shorten it down instead of copy and pasting it 30 times?

If CheckBox1.Caption = "" Then    CheckBox1.Visible = False
End If

TIA
Kyle

 

[Fluff]

Are these on a userform, or on a sheet?

 

[Fluff]

If they are on a userform try

    Dim i As Long
    For i = 1 To 30
        With Me.Controls("Checkbox" & i)
            If .Caption = "" Then .Visible = False
        End With
    Next i

If they are ActiveX controls on a sheet, try

    Dim i As Long
    For i = 1 To 30
        With Me.OLEObjects("Checkbox" & i)
            If .Object.Caption = "" Then .Visible = False
        End With
    Next i