Hi Dogfish,

Try:
'=============
Public Sub Tester001()
With ActiveWorkbook
.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Summary"
End With
End Sub
'<<=============

---
Regards,
Norman



"dogpigfish" wrote in message
...
What code can I use to create a new sheet and call it "Summary".