Application.Displayalerts = False

For Each sh In Activeworkbook.Worksheets
If sh.Name < activesheet.name then
sh.Delete
End If
Next sh

Application.Displayalerts = True

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"hans" wrote in message
...
Is there a way to delete all sheets but the active one?

Thanks Hans