You've already declared rng1 as a range and in the line above the ELSE
statement you're using it as a string

change Sheets(1).Range("rg1").Interior.Color = vbYellow

to rg1.Interior.Color = vbYellow

--
Kevin Backmann


"Roger Converse" wrote:

I have the following and am receiving a run time error 1004. Application
defined or Object Defined error.

What am I doing incorrectly?

Worksheets(1).Activate
If CheckBox1.Value = True Then
Set rg1 = Range("A17:F17")
Sheets(1).Range("rg1").Interior.Color = vbYellow
Else

I am trying to select the cells from A17 - F17 and highlight them yellow.

Thank you,
Roger