Guillermo,
What I need is to know the range of all cell's in the active sheet
so I can do something like this to import each cell's value to VFP:

oRange = oExcel.ActiveSheet.Range("x:y")
FOR nRow = 1 TO oRange.Rows.Count
FOR nColumn = 1 TO oRange.Columns.Count
? oRange.Cells[nRow, nColumn].Value
ENDFOR
ENDFOR

But I havent found how to get the range of the ceels' to import in the active sheet.
I'm missing something here ? then by your sample I get only the value of cell D5, now I Also need the value of the next cell D6 till D15 and later all the same till the last row.
But I dont know the number of rows.
Could you please help me ?

Thanks in advance

PETER