Autotilpas vha. VBA

I min database overfører jeg nogle data til Excel vha en funktion. Jeg vil gerne have det af Access generede regneark til at autotilpasse sig når data er overført. Jeg kunne selvfølgelig tilføje en makro i Excel skabelonen, men ikke den løsning jeg leder efter.
Når jeg bruger nedenstående til at afslutte overførslen, går det godt 1. gang, men efterfølgende gange kan jeg kun se Excel menuer og værktøjslinier, selve data(regnearket) er "usynligt"!

sub TransferToExcel()
  .
  .
  .
  .
  xlsheet.Cells.Select
  Selection.Columns.AutoFit
  xlsheet.Range("A1").Select

  rst.Close
  Set rst = Nothing
  Set dbs = Nothing
  Set xlapp = Nothing
  Set xlsheet = Nothing
 
  Exit Sub

Men når jeg blanker disse linier ud
  xlsheet.Cells.Select
  Selection.Columns.AutoFit
  xlsheet.Range("A1").Select
overføres alt korrekt, også ved gentagelser, men så får jeg ikke autotilpasset kolonnerne! :(