Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3
Properties
Application property, Color property, ColorIndex property, Creator property, InvertIfNegative property, Parent property, Pattern property, PatternColor property, PatternColorIndex property.