Выберите несколько определенных листов

Question

Это очень простой вопрос, но я не могу понять его правильно. У меня есть рабочая книга с несколькими листами, но для этого кода мне нужны только две конкретные, которые выбирает пользователь. Итак, код начинается так:

Dim SheetA as Worksheet
Dim SheetB as Worksheet

Set SheetA = ThisWorkbook.Sheets("The sheet the user wants")
Set SheetB = ThisWorkbook.Sheets("The sheet the user wants")

Тогда есть некоторый код. Позже мне нужно выбрать эти два листа и я хочу активировать первый лист. Это код, который я пробовал до сих пор, но он не работает (по крайней мере, первая строка).

ThisWorkbook.Sheets(Array(SheetA, SheetB)).Select
SheetA.Activate

Спасибо за любые полезные советы.

Answer 1

Вы рядом. Тем не менее, для коллекции Sheets нужны числа или строки в качестве параметра, но в вашем коде вы передаете Worksheet -объекты. Исправить несложно: просто передайте имена рабочих листов:

ThisWorkbook.Sheets(Array(SheetA.name, SheetB.name).Select