Populate CheckBox Captions with loop

[szymagic]

Hello all,

I have a userform that will allow the user to say what data they want to print from a table. What I am having issue is that I can't figure out how to use the looping integer with the userform's checkboxes.

So this is just the logic of what I'd like to accomplish, obviously it does not work!

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim name As String
    
    For i = 1 To 34
        name = "CheckBox" & i
        name.Caption = Sheets("To Build Report").Cells(2, i)
    Next i
End Sub

Any thoughts? Many thanks in advance!

 

[dmt32]

Hi,

try

Private Sub UserForm_Initialize()
    Dim i As Integer
    
    For i = 1 To 34
        Me.Controls("CheckBox" & i).Caption = Sheets("To Build Report").Cells(2, i).Text
    Next i
End Sub

Dave

 

[szymagic]

Thanks Dave,

Works like an absolute charm! Much appreciated!

 

[dmt32]

Thanks Dave,

Works like an absolute charm! Much appreciated!

Most welcome many thanks for feedback

Dave