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