CheckBox state not passing to the sub - Please Help

[kbbraman]

Hi - New to the forum.

I have the VBA sub below. I can't seem to get it to pass the state of CheckBox9 (which is alway "False"). Can anyone help. please.

Private Sub CheckBox9_Click()
'
' Macro1 Macro
'
Dim aa As Boolean


If CheckBox9 = True Then
ActiveSheet.Tab.ColorIndex = 35
Else
'If CheckBox9 = False Then
ActiveSheet.Tab.ColorIndex = 15
End If


'
End Sub

[6StringJazzer]

Welcome to the Forum!

What do you mean by "pass the state"? The code you showed looks OK but I don't know what you want it to do, so it may not be what you actually need. This Sub is called every time the user clicks on the checkbox, and then it will change the color of the tab of the active sheet accordingly. Where is the checkbox, and where is this code?

Also, please review forum rules.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[Norie]

What type of checkbox is it?

[kbbraman]

Not sure what you mean by "type of Check box". I am just trying to control the color of a tab with a checkbox within the worksheet.

[kbbraman]

I can't get the value to be "TRUE"

[Norie]

Is it a Forms checkbox or an ActiveX checkbox?

[kbbraman]

Its a forms Checkbox

[6StringJazzer]

If it's a Forms checkbox then your code will not work. That code is for an ActiveX checkbox. You have two options. My personal favorite is delete your checkbox then create an ActiveX checkbox and name it CheckBox9. Use the same code.

Second option is modify your code. Note that you must make it Public and then do Assign Macro for the checkbox to assign it to this code:

Please Login or Register  to view this content.