Как выделить и «перебрать» несмежные рабочие листы — Visual Basic(Бейсик)

Worksheets(Array(1, 3, 5)).Select

Worksheets(Array("Лист1", "Лист3", "Лист5")).Select

For Each iList In ActiveWindow.SelectedSheets
    MsgBox "Имя рабочего листа : " & iList.Name & vbCrLf & _
    "Индекс рабочего листа : " & iList.Index, vbSystemModal, ""
Next