Combining vba codes

Hello
I have this code:

Please Login or Register  to view this content.

I normally place this code in the sheet tab when I added a new worksheet. Is there anyway to place this code in the Thisworkbook tab? And be included with the rest of code.

I want the code to work except Sheet1 and Sheet4 but will work in the rest of the worksheet.

This what I have not included the above vba code.

Please Login or Register  to view this content.

THANKS.

Possibly...

Please Login or Register  to view this content.

Thank you :o)