You need to replace the line...

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

with

Worksheets(1) ' if the active sheet is something
'other than the 1st worksheet
rg1.Interior.Color = vbYellow

Hope that helps.

--
Cheers,
Michelle
"Anyone who says he can see through women is missing a lot." Groucho Marx


"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