Ordenar archivo de excel desde delphi

[suzely]

Mi problema es que es una hoja de excel que estoy editando y al guardarla no me deja guardarla con el mismo nombre ni usa el SaveAs().

Este es el codigo que estoy usando:

Hoja := xls.Worksheets.Item[H];
Rango := Hoja.Range['A2: D'+inttostr(fila)];
Rango.Sort(Hoja.Range['C1'], xlAscending);
xls.Save;
xls.Quit;