How to copy code from one sheet to another

My workbook contains a large sheet (240 columns) which is generated each year anew from a template sheet. The user has to be able to see a userform and this is made possible by clicking anywhere in row(2). There is code in the sheet module fired by Selection_Change event to do this
I am trying to transfer this code from the Template sheet to the worksheet as it is generated, and have found some code that I have modified to do this.

Please Login or Register  to view this content.

This fails with a "Substrate out of range " error at line starts Set Codecopy=.
Sheet "Template" does exist and has code in Worksheet_SelectionChange event. I expect that the next line might well come up with an error message too.
I have ticked the MSVB extension in references.
I have gone wrong somewhere and would welcome some help.
John

Mumps1 many thanks for your post which I am pretty sure is the answer.
The workbook I am updating gives our management accounts each month. Each month has 20 columns hence the need for a worksheet 240 columns long. It is only these sheets that need the facility given by my macro. They are all called ManagementAccounts yyyy-yyyy and so I can easily see a way of modifying your snippet to include all these sheets and thus improve the old sheets as well as new ones, Marvellous!!
Thanks
John