This code works to update my worksheet names excluding the 'Switchboard' worksheet. I also have a 'Customer' worksheet that I don't want changed. How can I add the 'Customer' worksheet to this code?



Sub ChangeWorkSheetName()
Dim WS As Worksheet
i = 20200
On Error Resume Next
For Each WS In Worksheets
If WS.Name <> "Switchboard" Then
WS.Name = i
i = i + 1
End If
Next
End Sub