Hallo,
mach's mal so:
Delphi-Quellcode:
XLApp.Workbooks[M].Cells.Select;
XLApp.Workbooks[M].Cells.EntireColumn.AutoFit;
XLApp.Workbooks[M].Range['A1','A1'].Select;
Alles selektieren, Breite soll Excel gefälligst selbst machen, selektion aufheben.
Stephan
PS: Mit Delphimaßen nach Excelmaßen umrechnen, da läufst Du Dir 'nen Wolf.