Application.DisplayAlerts = False
For Each sh In ActiveWorkbok.Worksheets
If sh.Name < "Summary" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"B.M.Spell" wrote in message
...
Good Morning
I have a workbook which uses a loop funtion in a macro to
collect data for a monthly history report. Sheets are created for every
day
of the month, then a final summary sheet with the totals for all days.
How
do I create a macro to delete all the sheets which were created for every
day of the month, but keep the summary sheet. Thanks