Excel 2016 VBA Mac Thisworkbook.Worksheets ошибка компиляции

Question

Сообщество

При использовании «ThisWorkbook» я получаю сообщение об ошибке «метод или элемент данных не найден», который не позволяет мне запускать код (возможно, связан с последними обновлениями с 16.28 по 16.29 - речь идет оMac Excel 2016 v. 16.29.1).

Ожидаемым результатом будет использование Destwb.Worksheets ("NAME") без каких-либо проблем. DestWb определяется как объект Workbook с Dim DestWb As Workbook и как Set DestWb = ThisWorkbook

Вот соответствующий фрагмент кода

Sub EURLeaderData()

'Dimensionierung + Definitionen
Dim wb As Workbook
Dim ws As Worksheet
Dim DestWb As Workbook
Dim LastRow As Long
Dim pf As PivotField

Application.ScreenUpdating = False

Set DestWb = ThisWorkbook
DestWb.Worksheets("Infra Copy").Visible = True
DestWb.Worksheets("DevSv Copy").Visible = True
DestWb.Worksheets("ClPub Copy").Visible = True

... (a lot more code to copy data from other Workbook and analysis)

End Sub

Примечание: код работал всегда нормально и по-прежнему работает безупречно,при использовании фактического имени файла вместо «ThisWorkbook» (я решил использовать ThisWorkbook нарочно, потому что мне приходилось менять имя файла каждый квартал, это длинный код, который должен сохраняться для будущих рабочих ролей -> необходимо включить имя кварталав шаблонах):

Sub EURLeaderData()

'Dimensionierung + Definitionen
Dim wb As Workbook
Dim ws As Worksheet
Dim DestWb As Workbook
Dim LastRow As Long
Dim pf As PivotField

Application.ScreenUpdating = False

Set DestWb = Workbooks("CP Europe_Roadmap Business Partner 3Q19WKXX.xlsm")
DestWb.Worksheets("Infra Copy").Visible = True
DestWb.Worksheets("DevSv Copy").Visible = True
DestWb.Worksheets("ClPub Copy").Visible = True

... (more code)
End Sub

Вот снимок экрана с ошибкой: Ошибка компиляции "ThisWorkbook.Worksheet"

Пожалуйста, помогите мне разобраться, что происходит не такздесь - спасибо!