Application VisualBasic Script

Sub excel()
    Dim myNewSheet As Object
    Set myNewSheet = CreateObject("Excel.Sheet")
End Sub