Checkbox Caption

[Dman333]

I'm fairly new to VBA and have created a checkbox userform and want the caption for each checkbox to be the text in a cell in the worksheet. I keep seeing this line of code and copied it directly into the Userform_Click routine and it won't work. Any help with what I'm doing worng?

Private Sub UserForm_Click()
UserForm1.CheckBox1.Caption = Sheets("Sheet1").Range("A1").Value
End Sub

Any help is appreciated - Thanks

 

[Dman333]

Correction - Its under
Private Sub PASelectForm_Initialize()

 

[Rick Rothstein]

Correction - Its under
Private Sub PASelectForm_Initialize()

If that is where it is, then your code line should read...

PASelectForm.CheckBox1.Caption = Sheets("Sheet1").Range("A1").Value

 

[Dman333]

Thanks for the response. This one's on me. While waiting for a response I tried it on a new workbook which is the first post and then copied from the one I'm actually working with.

I got it to work and then did what I really wanted below:

Sub UserForm_Initialize()
'This changes the Captions on the buttons to match the row


Dim I As Integer


For I = 3 To 22
Me.Controls("CboxRow" & I).Caption = ThisWorkbook.Sheets("Sheet3").Cells(I + 1, 2).Value
Next I




End Sub

It worked for a while and then stopped. It seems like there's a setting or switch that seems off or missing. It doesn't seem to like the -- ("CboxRow" & I) -- part because it's stopping there and giving a script out of range error and it's dead at the period before Caption.

 

[Dman333]

Thanks for the Help - I figured it out.