[*Caro*]

Hola Chewitta, por favor utiliza las etiquetas [ delphi] [ /delphi] para que tu codigo se entienda mejor. Sobre tu pregunta, prueba de esta forma.

Código Delphi [-]

Book : OLEVariant;
..............................................
try

    Excel := CreateOleObject('Excel.Application');
    Book := Excel.Workbooks.Open(EdtContacto.Text);

    Sheet := Book.WorkSheets[1]; 
    Sheet.Activate;

    CantRow := Excel.ActiveCell.Row;
    CantCol := Excel.ActiveCell.Column;

    RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;

    ......................................................
    .........................................................
  try
    //Si es sobre el mismo documento, estas dos lineas estan demas 
    //Excel := CreateOleObject('Excel.Application');
    //Excel.Workbooks.Open(EdtContacto.Text);

    Sheet := Book.WorkSheets[2]; 
    Sheet.Activate;
    
    CantRow := Excel.ActiveCell.Row;
    CantCol := Excel.ActiveCell.Column;

    RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;

    Cdstele:=Tclientdataset.create(nil);

    for i:=1 to CantRow do
    begin
    ....................................................
    ....................................................

Saluditos