The Interior property

The Interior property

Sub abc()

    For i = 1 To 56

    Cells(i, "a").Interior.ColorIndex = i

    Next

End Sub

Range(“A1”).Interior.Color = 8421504

Range(“A1”).Interior.Color = RGB(0, 0, 0) ‘black

Range(“A1”).Interior.Color = RGB(255, 0, 0) ‘ pure red

Range(“A1”).Interior.Color = RGB(0, 0, 255) ‘ pure blue

Range(“A1”).Interior.Color = RGB(128, 128, 128) ‘ middle gray

Range(“A1”).Interior.Color = vbYellow