Application VisualBasic Script

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