Hi nic
one way: try

Public Sub delete_sheets()
Dim wkSht As Worksheet
Application.DisplayAlerts = False
For Each wkSht In Worksheets
If wkSht.Name < "process sheet" Then
wkSht.Delete
End If
Next wkSht
Application.DisplayAlerts = True
End Sub

Frank

Hello :)

I run a vba script to populate and format another workbook with data.

I would like to add to this script a clever bit of code to remove all
sheets other that a set sheet

i.e remove all sheets except 'process sheet'

unfortunatly 'process sheet' is not the active sheet so I cannot use
a
script I already know :(

Any help would be marvelous


All the best

Nic


---
Message posted from http://www.ExcelForum.com/