Data Type VisualBasic Script

Sub obj()
    Dim myObject As Object
    Set myObject = range("A1:A15")
    myObject.Font.Bold = True
    Dim myRange As Excel.range
    Set myRange = range("A1:A15")
    myRange.Font.Bold = True
End Sub