how to delete unwanted sheets

[N E Body]

Hello everyone

I want to clear a workbook of all but 3 worksheets on opening th
workbook.
Unfortunately I do not know the names of the sheets to delete -
simply want to keep "Log", "Data", Lists" - There may be as many as 1
unwanted sheets.

Could anyone suggest code to do this?

TIA

Kenny
Various combinations of
Win Me, 2000,XP
Office 97 and 200

 

[mangesh_yadav]

Sub SheetDelete()

For Each sht In Worksheets

If sht.Name <> "Log" And sht.Name <> "Data" And sht.Name <> "Lists
Then
sht.Delete
End If

Next

End Sub


but the problem is this will prompt you whether to delete or not. Ther
is a way around this which I am not remembering at the moment

- Manges

 

[mangesh_yadav]

ok. here it is. Use

Sub DeleteSheet()

Application.DisplayAlerts = False

For Each sht In Worksheets
If sht.Name <> "Log" And sht.Name <> "Data" And sht.Name <
"Lists" Then
sht.Delete
End If

Next

Application.DisplayAlerts = True
End Su

 

[N E Body]

Thanks for you help - that did the trick!

Kenn