Hi,

This will delete everything except the name sheet

Sub versive()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name < ("Sheet5") Then ws.Delete 'Change to suit
Next ws
End Sub

It will generate an alert for each sheet, if you want to eliminate that add
this around the code:-

Application.displatalerts=false


Application.displayalerts=true

Mike

"andrewbt" wrote:

hello all (again).
Im currently using this code below for exiting my system

Sub Save_Exit()
Application.Quit
ThisWorkbook.Close SaveChanges:=True
End Sub

Pretty simple i know, but what i really really need is some way of saving
the workbook but deleting all of the worksheets apart from "Worksheet 1". If
anyone can help me i will be very grateful. Thanks a bunch.
Andrew