You're welcome.
![]()
Sub DeletePayslips() Dim i As Long Application.ScreenUpdating = False For i = Worksheets.Count To 2 Step -1 If Worksheets(i).Name <> "Template" Then Application.DisplayAlerts = False On Error Resume Next Worksheets(i).Delete On Error GoTo 0 Application.DisplayAlerts = True End If Next 'i Application.ScreenUpdating = True End Sub
Regards, TMS
Bookmarks