Как добавить лист в список исключений, когда его можно переименовать и переместить

Question

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

Function exception(Sheet_Name As String) As Boolean
    Dim exceptions(3) As String
    Dim Counter_x As Long

    exceptions(0) = "MASTER ITEM LIST"
    exceptions(1) = "ITEM LIST"
    exceptions(2) = "Rebar Protperties"
    exceptions(3) = "Rebar Worksheet"

    exception = False

    For Counter_x = LBound(exceptions) To UBound(exceptions)
        If Sheet_Name = exceptions(Counter_x) Then
            exception = True
        End If
    Next Counter_x

End Function

ВПри таком подходе имена рабочих листов жестко закодированы.В какой-то момент я также применил подход за исключением того, что worksheet("blah").index > 2.Использование номера индекса кажется плохой идеей, поскольку лист можно перемещать, что приведет к изменению его номера.Жесткое кодирование имени листа в списке также кажется плохим выбором, так как имя листа может быть переименовано.

Есть ли способ отследить имя листа или его порядковый номер, чтобы его можно было сохранить в списке исключений?

Answer 1

Вы можете увидеть, находится ли имя листа в списке исключений за один проход.

Function exception(Sheet_Name As String) As Boolean
    Dim exceptions(3) As String

    exceptions(0) = "MASTER ITEM LIST"
    exceptions(1) = "ITEM LIST"
    exceptions(2) = "Rebar Protperties"
    exceptions(3) = "Rebar Worksheet"

    exception = iserror(application.match(Sheet_Name , exceptions, 0))

End Function