PDA

View Full Version : Solved: Delete pages



enfantter
11-12-2007, 12:42 AM
Hi,

Upon opening an excel sheet, I would like to delete any sheet that starts with sheet (eg. sheet1, sheet21 etc).

Is anyone aquianted with an easy way to do this?!

Bob Phillips
11-12-2007, 01:26 AM
For Each sh In ThisWorkbook.Worksheets
If sh.Name like "Sheet*" Then
If ThisWorkbook.Worksheets.Count > 1 Then
sh.Delete
End If
End If

enfantter
11-12-2007, 01:36 AM
Works perfect!!
(just put next in the end)

Bob Phillips
11-12-2007, 02:05 AM
Have to leave you something to do!