Excel VisualBasic Script

Sub add()
    Workbooks.Add Template:=xlWBATExcel4MacroSheet
End Sub