Name checkbox with vba

Dear forum,

In a userform are multiple checkboxes. The come in sets of two (yes or No)
If a checkbox is clicked (true) then a cell value in sheet1 = "yes"

Upon 'Initialize' I want the backcolor of one of two checkboxes to change.
To do this I've assigned an ID to every couple of checkboxes
For example:

HTML Code: 

The checkboxes in the userform are cb1 and cb2 etc.
When running this code I get an error 91, object variable with, etc..

Please help.
Or is there a better way to do this? Sure there is, however....

Regards, Rudy

Rudy

How/where/when are you setting a and b?

Are a and be the name of the checkboxes?

Firstly if you have Yes No options then you should use option buttons. If any option buttons are within the same frame then only one can be selected at any time.

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Can you explain, in words, what you are trying to do?

Rudy

Do you have a list of questions somewhere?

I have created a simplified Userform for you to study.

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then Exit Sub
On Error Resume Next
Set Z = Columns(1).Find(TextBox1.Value)
On Error GoTo 0

If Z <> TextBox1.Text Then Exit Sub


For Question = 1 To 3
Me.Controls("OptionButton" & Question * 3) = True
Me.Controls("OptionButton" & Question * 3) = False
Pos = Application.Match(Cells(Z.Row, Question * 2 + 5).Value, Array("", "Ja", "Nee", "N. V. T"), 0)

If Not IsError(Pos) Then Me.Controls("OptionButton" & Question * 3 - 4 + Pos).Value = True

Next
End Sub

Private Sub CommandButton2_Click()
If TextBox1.Text = "" Then Exit Sub
On Error Resume Next
Set Z = Columns(1).Find(TextBox1.Value)
On Error GoTo 0

If Z <> TextBox1.Text Then Exit Sub

For Question = 1 To 3

If Me.Controls("OptionButton" & Question * 3 - 2).Value = True Then Ans = "Ja"
If Me.Controls("OptionButton" & Question * 3 - 1).Value = True Then Ans = "Nee"
If Me.Controls("OptionButton" & Question * 3).Value = True Then Ans = "N. V. T"

Cells(Z.Row, Question * 2 + 5).Value = Ans
Next
End Sub