VBA-Defined Constants: vbBlack
Sub obj2() Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbBlack End Sub