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

iListIndex = Array(1, 3, 5)
 
For Each iList In Worksheets(iListIndex)
    MsgBox "Имя рабочего листа : " & iList.Name
Next


iListNames = Array("Лист1", "Лист3", "Лист5")
 
For Each iList In Worksheets(iListNames)
    MsgBox "Индекс рабочего листа : " & iList.Index
Next

Set iListMassiv = Worksheets(Array(1, 3, 5))
 
For Each iList In iListMassiv
    MsgBox "Имя рабочего листа : " & iList.Name
Next

Set iListMassiv = Worksheets(Array("Лист1", "Лист3", "Лист5"))
 
For Each iList In iListMassiv
    MsgBox "Индекс рабочего листа : " & iList.Index
Next

code: #vba
For Each iList In Worksheets(Array(1, 3, 5))
    MsgBox "Имя рабочего листа : " & iList.Name
Next
For Each iList In Worksheets(Array("Лист1", "Лист3", "Лист5"))
    MsgBox "Индекс рабочего листа : " & iList.Index
Next