Delete selected worksheets at the end?

[chiragggg]

Hi,

I am having a real hard time thinking of a way to delete selected worksheets (when selected by the user at the begining of a macro)

I was thinking of using a form tick box from the main control worksheet to select the worksheets not to be deleted,

however

problem 1 - the main page will be delete before the report is complete, therefore to keep a record of the worksheets to be delete will be difficult
problem 2 - there are only four worksheets to be decided to be deleted, would a form tick box be best? or a message box?

Any help would be great...any suggestions?

 

[lenze]

Sub DeleteSheets()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
Application.DisplayAlerts = False
ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

lenze