Delete on Workbook Close

[helpexcel]

I'm trying to clear the worksheet and delete any added worksheets when the workbook is closed. this is the code I put in ThisWorkbook, but it doesn't work.

Private Sub Workbook_Deactivate()

    Set ws9 = Sheet9
    ws9.Cells.Delete
    
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Main Sheet" Then ws.Delete
Next
    
    
    
End Sub

 

[helpexcel]

Thanks again @Fluff!!

 

[Fluff]

My pleasure.

 

[helpexcel]

OK, It seems I'm never done...I want to make it read only, so I selected that in the options tab. How do I change this code, ActiveWorkbook.Save, to force SaveAs?

 

[Fluff]

As this is a totally different question, it needs a new thread. Thanks