OK, so since someone hurt my brain the other day with some half remarkable something or other I'm hoping that this is equally as cryptic.
More clues may follow depending how this goes
If these were from kits then that is understandable, they've come a long way but most kits are still terrible.
I make both (mostly beer now though) and whilst relatively easy to make something as good or better than commercial, you do need a bit of specialised equipment which can be rather...
Row 16 - You have 2 spaces after "FDIC:" and your code is getting tripped up by it. Was working fine until it got to that part.
Row 48 - There is a redundant space at the end of the sentence that is tripping it up.
Hi, Can you try changing
Set workSheet = appExcel.Worksheets("ExactActive")
to
Set workSheet = workBook.Sheets("ExactActive")
Also, I'm not sure what 'With xlsheet1' is referring to as you don't have this sheet mentioned anywhere else...