Chart macro

[#1]

Hello,

I use macro to get date from chart:

sub qqqq

set obj = ActiveDocument.GetSheetObject( "CH03" )
CellRect = ActiveDocument.GetApplication().GetEmptyRect()
CellRect.Top = 0
CellRect.Left = 0
CellRect.Width = obj.GetColumnCount
CellRect.Height = obj.GetRowCount
set CellMatrix = obj.GetCells( CellRect )
for RowIter=CellRect.Top to CellRect.Height-1
    for ColIter=CellRect.Left to CellRect.Width-1
        msgbox(CellMatrix(RowIter)(ColIter).Text)
    next
next

end sub

How could I get max Column value into variable in this macro?