Range("A1").Select
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With