Interate thru each CHART in Workbook

Could someone please help me find a way to interate through each CHART sheet in an Excel Workbook? I can easily do this with a "For Each" statement, but I would like to use a "Do Loop" instead. I would appreciate the help..... I have searched all over the Internet for something like this. No success. :confused:

Thanks,
Michael

vb Code:

i = 0
Do Until i =  ActiveWorkbook.Charts.Count
    i = i + 1
    MsgBox ActiveWorkbook.Charts(i).Name
Loop