Application VisualBasic Script

Sub colorYellow()
    range("A1").Interior.color = vbYellow
End Sub