Access routine to modify excel spreadsheet can only be run once

[OBP]

You could try
sht.Select instead of or as well as sht.Activate
and
sht.cells(1,1).select
or
Activesheet.
cells(1,1).select