VBA - перебрать все листы и исключить один

Question

Мне нужно выполнить одну и ту же задачу на всех листах рабочей книги, кроме одной, у меня есть код ниже, но я получаю следующую ошибку:

Конец, если без блока, если

    Sub Servers3_DeleteIrrelevantColumns()

    'Initialize variables
    Dim currentColumn As Integer
    Dim columnHeading As String
    Dim wrkSht As Worksheet

    'Rename headers on all sheets if matched

        If wrkSht.Name <> "New Servers" Then
    For Each wrkSht In ActiveWorkbook.Worksheets

            wrkSht.Cells(1, 1).EntireRow.Replace What:="*ServerName*", Replacement:="Server Name", Lookat:=xlWhole

            For currentColumn = wrkSht.UsedRange.Columns.Count To 1 Step -1

                columnHeading = wrkSht.UsedRange.Cells(1, currentColumn).Value

                'Check whether to keep column
                Select Case columnHeading

                    Case "Server Name"

                    'Do nothing

                    Case Else

                    wrkSht.Columns(currentColumn).Delete

                End Select

            Next

        End If

End Sub

Answer 1

Вот рабочее решение моего вопроса:

Sub Servers3_DeleteIrrelevantColumns()

    'Initialize variables
    Dim currentColumn As Integer
    Dim columnHeading As String
    Dim wrkSht As Worksheet

    'Rename headers on all sheets if matched

    For Each wrkSht In ActiveWorkbook.Worksheets

        If wrkSht.Name <> "New Servers" Then

            wrkSht.Cells(1, 1).EntireRow.Replace What:="*ServerName*", Replacement:="Server Name", Lookat:=xlWhole

            For currentColumn = wrkSht.UsedRange.Columns.Count To 1 Step -1

                columnHeading = wrkSht.UsedRange.Cells(1, currentColumn).Value

                'Check whether to keep column
                Select Case columnHeading

                    Case "Server Name"

                    'Do nothing

                    Case Else

                    wrkSht.Columns(currentColumn).Delete

                End Select

            Next

        End If

    Next wrkSht

End Sub