QlikView : Macro function for Get All Sheet ID

sub LoopSheet
        for i = 0 to ActiveDocument.NoOfSheets - 1
           set ss= ActiveDocument.GetSheet(i)
           msgbox(ss.GetProperties.SheetId)
       next
end sub