Attribute VB_Name = "testcellrange6"
Sub ƒeƒXƒg()

    Dim range1 As Range

    Set range1 = Range("C3").Offset(RowOffset:=1, ColumnOffset:=2)
    range1.Interior.ColorIndex = 3

End Sub