Keep the only Sheet

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.

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

Code:

---

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

---

Thanks ... :friends:

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 ... :friends:

Quote:

---

Originally Posted by 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

Code:

---

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

---

---

Thanks...

:beerchug: