Error Message 'Subscript Out of Range'

Hi all -

See if you can see what is wrong with this code - I have no idea. All the spreadsheet names are correct and I have used this syntax before, I don't know what I am doing wrong. The macro has a problem with the 3rd line (

Please Login or Register  to view this content.

), here is the code:

Please Login or Register  to view this content.

Thanks for your help.

You can't select a cell if it's not on the active sheet, but there's no need to select:

Please Login or Register  to view this content.