Data Type VisualBasic Script

Sub obj()
    Dim myObject As Range
    Set myObject = Range("A1:B10")
    myObject.Interior.Color = 16711680
End Sub