Home » Forums » Open Source Learning Center » Question and Answer

Delete all even Numbered Wrkshts

Submitted by walterusher on 10 October, 2012 - 10:01

Hi All

Need help. I have a workbook with worksheet that are named with sequential numbers. i.e worksheet names 1,2,3,4,5,6,7,8,...... I would like a macro that deletes all the
worksheets with names that are even numbers.

Thanking you in advance

‹ How can Excel copy from a one sheet to others by auto sorting by dates? How to still scroll wheel when run vba ?? ›
»
Nick's picture

Delete Even Worksheets

Submitted by Nick on 10 October, 2012 - 10:45.
Sub DeleteEvenWorksheets()
 
On Error Resume Next
Application.DisplayAlerts = False
For Each theSheet In ActiveWorkbook.Sheets
    If theSheet.Name Mod 2 = 0 Then
        theSheet.Delete
    End If
Next
Application.DisplayAlerts = True
 
End Sub
»

Works perfectly

Submitted by walterusher on 10 October, 2012 - 11:24.

Thanks Nick

Works perfectly

Regards
Walter

»