Unclick Code on Check box command button

[Todd]

I have code written that when the control check box is
selected certain cells will highligh. I would like for
those same cells to turn white when the check box is
unchecked. What code do I need? Thanks!

Private Sub CheckBox1_Click()
Range("B1717").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.Value = 0


End With
End Sub

 

[Dave Peterson]

How about checking if the checkbox is checked or not checked <vbg>?

Option Explicit
Private Sub CheckBox1_Click()
With Me.Range("B1717").Interior
If Me.CheckBox1.Value = True Then
.ColorIndex = 6
.Pattern = xlSolid
Else
.ColorIndex = xlNone
End If
End With
End Sub

 

[Dave Peterson]

Ps. I'm not sure what you were doing with the .value statement.