paulked
04-24-2013, 08:20 AM
Hi
I am trying to fill CheckBox captions in a userform from a column in a Sheet1 (where the userform is called from). I have added a userform and put 14 checkbox's in all with the caption "Not used".
Private Sub UserForm_Initialize()
Dim cl as Range
Dim LastRow as Long
Dim i
Set cl = Cells(i, 1)
cl.Select
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
Me("CheckBox" & i).Caption = cl.Value
Next
End Sub
I've tried all sorts of syntax for the line Me("CheckBox" & i).Cation = cl.Value but can't get any to work.
Any Help please?
I am trying to fill CheckBox captions in a userform from a column in a Sheet1 (where the userform is called from). I have added a userform and put 14 checkbox's in all with the caption "Not used".
Private Sub UserForm_Initialize()
Dim cl as Range
Dim LastRow as Long
Dim i
Set cl = Cells(i, 1)
cl.Select
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
Me("CheckBox" & i).Caption = cl.Value
Next
End Sub
I've tried all sorts of syntax for the line Me("CheckBox" & i).Cation = cl.Value but can't get any to work.
Any Help please?