G
Guest
Jasons suggseted code below worked for the Caption. Likewise how would I set
the .Value for each Checkbox to True or False? I tried changing
..Caption to .Value in his code but that didn't work.
Thank you,
Sandy
the .Value for each Checkbox to True or False? I tried changing
..Caption to .Value in his code but that didn't work.
Thank you,
Sandy
Was this post helpful to youJason Morin said:Sandy-
Try this for starters:
Sub Fill_Captions()
Dim ctrl As MSForms.Control
Dim i As Integer
i = 1
For Each ctrl In UserForm1.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
ctrl.Caption = Sheets(1).Cells(i, "A")
i = i + 1
End If
Next
End Sub
---
This assumes the captions you want to use in cells A1:A20 in the first sheet
of your workbook.
HTH
Jason
Atlanta, GA