Sub DeleteAllButFirst()
Dim i as Long
Application.DisplayAlerts = False
for i = 1 to Sheets.count - 1
Sheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub

--
Regards,
Tom Ogilvy

"Corey" wrote in message
...

is there some code where i can delete all sheets, except for sheet1, but
not by the sheet name.
As the sheet names are not in any particular sequence or indexed value?
Corey....