How to highlight a cell and display a message when a checkbox is checked?

[Anthony Smith]

Hello,

I am looking for a solution on how to highlight a specific cell when a checkbox (form) is checked. The range is A1:S104. I wish to highlight cell G66 when checkbox13 is selected. I would also like to display a simple message box. 

Any help is appreciated!

Thanks!

[#2 · Accepted solution]

Hi Anthony,

This is can be done as below screenshot.

The Check Box 1 is powered by this macro:

Sub CheckBox1_Click()

    If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
        Range("G66").Interior.Color = vbYellow
        MsgBox ("The cell G66 in now highlighted!")
    Else
        Range("G66").ClearFormats
    End If

End Sub

Please see the attached file.

Regards

[#3]

Thank you so much. I just adjusted the code a bit to clear just the highlighting instead of all the formats.