This code snippet produces RT error "Object Required" (424)
and halts on the With ..

Dim r As Range
Set r = Sheets("Sheet1").Range("O13:R21")
With r.Interior.Color
.ColorIndex = 50
.Pattern = xlSolid
End With

What am I not getting here?

Thanks, Tony

r.Interior.Color
is a simple value--not an object.

Maybe you wanted:
With r.Interior


Tony wrote:

This code snippet produces RT error "Object Required" (424)
and halts on the With ..

Dim r As Range
Set r = Sheets("Sheet1").Range("O13:R21")
With r.Interior.Color
.ColorIndex = 50
.Pattern = xlSolid
End With

What am I not getting here?

Thanks, Tony

--

Dave Peterson

Thanks - I'm reminded of that great line in Amadeus:

"There are too many notes."

Too many things for my tiny mind to keep track of.

Tony
-----Original Message-----
r.Interior.Color
is a simple value--not an object.

Maybe you wanted:
With r.Interior


Tony wrote:

This code snippet produces RT error "Object Required"
(424)
and halts on the With ..

Dim r As Range
Set r = Sheets("Sheet1").Range("O13:R21")
With r.Interior.Color
.ColorIndex = 50
.Pattern = xlSolid
End With

What am I not getting here?

Thanks, Tony

--

Dave Peterson
.