Excel VisualBasic Script

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