Исключение указанных листов при сохранении версии .PDF

Question

Я хотел бы скрыть указанные листы в своей книге, потому что не хочу, чтобы они сохранялись в моей версии .PDF.

На основе Как исключить 1 лист из моего сохранения в pdf VBA macro Я указал имена листов, однако у меня есть группа листов, которую можно развернуть (существуют Civils 1, Civils 2, но могут появиться Civils 3 и т. д.).

Я подготовил код:

Sub SplicingAsbuilt()
  Sheets(Array("Materials - Specifications", "Fire Stopping", "Trunking", "Drop Length Calculator", 
  "BoM", "BoQ Civils", "BoQ Cabling")).Visible = False
  If ThisWorkbook.Sheets.Name Like "*Civils*" Then
    Sheets.Visible = False
  End If

Моя консоль возвращает:

«Метод или элемент данных не найден»

Пример ответа, представленного здесь: Excel VBA: ошибка компиляции: метод или элемент данных не найден не применяется.

Answer 1

Попробуйте этот кусок кода, пожалуйста:

Sub SplicingAsbuilt()
 Dim Sh As Worksheet, arrSh As Variant, arr As Variant
  arrSh = Array("Materials - Specifications", "Fire Stopping", "Trunking", "Drop Length Calculator", _
  "BoM", "BoQ Civils", "BoQ Cabling")

  For Each Sh In ThisWorkbook.Sheets
    If Sh.Name Like "*Civils*" Then Sh.Visible = xlSheetHidden
    For Each arr In arrSh
       If Sh.Name = arr Then Sh.Visible = xlSheetHidden: Exit For
    Next
  Next
End Sub