Creating an Object with the CreateObject Function
Sub excel() Dim myNewSheet As Object Set myNewSheet = CreateObject("Excel.Sheet") End Sub