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