Delete All Sheets in a Workbook Except... (THIS TOPIC IS NOW

[Jak]

I have a workbook with a large number of worksheets. I would like a macro that would delete all the worksheets (based on their tab names) with the exception of four sheets whose tab names are:

CurrentPeriod
FixedCost
Budget
Unit Cost

Any ideas or suggestions welcomed.
This message was edited by Jak on 2003-01-18 04:40

 

[lenze]

Sub DeleteWS()
For Each ws in Sheets
Application.DisplayAlerts=False
If ws.Name <> "CurrentPeriod" AND ws.Name <> "Budget" AND ws.Name <> "FixedCost" AND ws.Name <> "UnitCost" Then ws.delete
Next
Application.DisplayAlerts=True
End Su

 

[Jak]

Many thanx

A reply with a solution in under 10 minutes. I think the MrExcel forum should start clocking the power of this board.

Many thanx again