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