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