Sheets :=  xl.ActiveWorkbook.Names
Loop, parse, Sheets, `,
{
    MsgBox, Sheet number %A_Index% is %A_LoopField%.
}