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