CopyPasteMacro.xlsm

Attached is the code in its entirety.
The macro stops after wbNew opens but before column A is unhidden and multiplied by 1.
I receive a msg box "run time error 1004. Application defined or object defined error."

As I mention in my first post, the macro works great in my personal book, but fails when I paste it into another workbook.

Thank you for your time.