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

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

[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

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

[sukumar.vb]

Thanks...