VB Code for Check Box

[asad]

Hello Experts,

I wrote this one liner for my check box but is not working. What should I be doing to make it work?

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Range(A1, A10).Interior.ColorIndex = 20
   
   Else: Range(A1, A10).Interior.ColorIndex = xlNone
    
End If
End Sub

Thanks for your help.


Asad

 

[Domenic]

If you want A1 and A10, replace each instance of...

Range(A1, A10).Interior.ColorIndex

with

Range("A1, A10").Interior.ColorIndex

If you want A1:A10, try...

Range("A1:A10").Interior.ColorIndex

 

[asad]

Thanks a lot Domenic. It works perfect.

Asad

 

[Domenic]

You're very welcome! Thanks for the feedback!