Зациклить листы и удалить

Question

Я пытаюсь зациклить рабочие листы и удалить ненужные. Проблема в том, что я хочу зациклить и удалить на основе редактора VBA (имена), но я получаю сообщение об ошибке. Петля работает отлично. Любая помощь будет оценена.

Код:

Sub Remove_Sheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name = wsOriginal Or ws.Name = wsRecords Then
        Else
            ws.Delete
        End If

    Next ws

End Sub

Изображение:

Answer 1

Проблема решена.Я заменил:

If ws.Name = wsOriginal Or ws.Name = wsRecords Then

на:

If ws.CodeName = "wsOriginal" Or ws.CodeName = "wsRecords" Then