Sheets :=  xl.ActiveWorkbook.Sheets.count
Loop,Sheets
{
    MsgBox, xl.ActiveWorkbook.Sheets(%A_Index%).Name
}