Как сделать массив переменных на основе информации внутри ячеек?

Question

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

With Worksheets("Home Page").Cells
    Set findSheets = .Find(What:="Sheets", LookIn:=xlValues)
End With

findSheets.Select
Selection.Offset(2, 0).Select
num = 1

ArrayList = Chr(34) & Selection.Value & Chr(34)
Selection.Offset(1, 0).Select

For Each MyCell In Range(Selection, Selection.End(xlDown))
    ArrayList = ArrayList & ", " & Chr(34) & Selection.Value & Chr(34)
    Selection.Offset(1, 0).Select
Next
ArrayList = ArrayList & ")"
ArrayList = Array(ArrayList)

If CheckBox1.Value = True Then
    Worksheets(Array(ArrayList)).Visible = True
Else
    Worksheets(Array(ArrayList)).Visible = False
End If

Answer 1

Dim shet
For Each shet In arraylist
    Worksheets(shet).Visible = CheckBox1.Value
Next shet