>loRange = oExcel.ActiveWorkBook.ActiveSheet.Range("A3:G200")
>
>for row = 1 to loRange.Rows.Count
> for col = 1 to loRange.Columns.Count
> luValue = loRange.Cells( m.row, m.col ).Value
> endfor
>endfor
>Cetin
Thank you very much, Cetin."The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham