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