The Interior property:changes the Color property of the Interior object contained in the Range object:
Sub color() range("A1").Interior.color = 8421504 End Sub