delete all sheet tabs apart form the first 3

**gwithey** · 11-05-2008, 04:32 AM

Just created 1800 sheets by not closing a loop, just wondering if anyone has a quick solution to delete all of these apart from the first three

George

**Dav** · 11-05-2008, 04:48 AM

Well if you go to the 4th sheet tab click on it and hold down shift, then press the last sheet button, then click on the last sheet, all the sheets are highlighted. Then right click and select delete.

Regards

Dav

**royUK** · 11-05-2008, 04:49 AM

Next time close the workbook without saving

For a VBA methoid

Option Explicit

Sub deleteShts()
    Dim sht    As Worksheet
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        For Each sht In ThisWorkbook.Worksheets
            If sht.Index > 3 Then sht.Delete
        Next sht
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub