[AccessD] Automation of Excel through Access Problem

Hi jeffrey

You may need to "activate" the worksheet:

> 331       .Worksheets("AccountList").Activate

> 340       Range("A1:I1").Select


And why not use With/End_With a bit more:

  With .Worksheets("AccountList")
    With .PageSetup
      ...
    End With
    .Select
    ...
  End With
  
/gustav