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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> schreef in bericht
news:(E-Mail Removed)...
> 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
>