Solved: Keep the only Sheet

[sukumar.vb]

When I open an Excel workbook, I want to keep only one sheet name "Hello" and I want to delete other sheets which were created in last session.

Therefore, Excel should delete all other sheets, except one sheet.

[Aussiebear]

Try the following on a copy of a workbook, and if it works to your satisfaction then we only need to change the action to a BeforeClose event and reside the code within the This Workbook module

[vba]Sub deletesheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <>"Hello" Then ws.Delete
Next ws
End Sub
[/vba]

[sukumar.vb]

Thanks ...

There can be Charts also along with sheets. How to delete Charts?
Could there be anything else, along with Charts?
How to mark this thread as "Solved"?

Thanks ...

Try the following on a copy of a workbook, and if it works to your satisfaction then we only need to change the action to a BeforeClose event and reside the code within the This Workbook module

[vba]Sub deletesheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <>"Hello" Then ws.Delete
Next ws
End Sub
[/vba]

[sukumar.vb]

Thanks...