Excel VisualBasic Script

Sub add()
    Dim mySheet As Worksheet
    Set mySheet = Workbooks(1).Sheets.Add(before:=Sheets(1))
    mySheet.Name = "Summary"
End Sub