Hi Chemist,

I know you'd like to get to the bottom of this yourself, so I'll give you a starting point.

(1) Add Option Explicit to the top of your code module.
(2) Comment out the On Error Resume Next.

Now try to debug it. Step through the code pressing F8 (once you've managed to compile it by declaring all of your variables) and, once you've sorted out the naming of the new sheet, pay particular attention to the error thrown on this line:
If Worksheets(WkSht1).Cell.Value <> Worksheets(WkSht2).Cell.Value Then
At the moment, your On Error Resume Next (which you will now have commented out) is masking this error.