Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name < "WELCOME" And _
ws.Name < "ImportedRawData" And _
ws.Name < "ImportedDataEdit" Then
ws.DisplayPageBreaks
End If
Next ws
Application.DisplaAlerts = True

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"joecrabtree" wrote in message
oups.com...
To all,

I have a workbook with many sheets, and wish to delete all of them
apart from the following 3:

WELCOME, ImportedRawData, + ImportedDataEdit


How can I do this?

Thanks very much for your help in advance,

Regards

Joseph Crabtree