Is there a way to delete all sheets but the active one?

Thanks Hans

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

Sub DeleteAll()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If Not ws Is ActiveSheet Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub


Sandy

hans wrote:
Is there a way to delete all sheets but the active one?

Thanks Hans

Thanks Hans


"Sandy" schreef in bericht
oups.com...
Sub DeleteAll()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If Not ws Is ActiveSheet Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub


Sandy

hans wrote:
Is there a way to delete all sheets but the active one?

Thanks Hans