Excel VisualBasic Script

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