I must admit I have never tried this kind of manipulation of many sheets from Access.
I do note that when you start the loop that you use
With sht
which means that you should be able to refer to the sht with a .
so instead of sht.activate it would just be .activate.
So the question is, as you are using sht. more than once within the with sht do you actually need the with sht at all?

As you can probably tell I am clutching at straws here and just looking for anomalies that might confuse the VBA code.