Excel VisualBasic Script

Sub color()
    range("A1").Interior.color = 8421504
End Sub