Sheets :=  xl.ActiveWorkbook.Sheets.Count
While (Sheets > 0 )
{
    MsgBox % xl.ActiveWorkbook.Sheets(Sheets).Name
    Sheets--
}