Insert a piece of text to all active worksheets

I have this code that inserts a certain piece of text to three worksheets. I need to insert this to all active worksheets instead of using an array. I would also like to make the text a certain font, size and possibly bold. Any help would be greatly appreciated.

Formula:

Please Login or Register  to view this content.

I've assumed by "active sheets" you mean ones that are not hidden...

Please Login or Register  to view this content.

It copies the text to the sheets however the text formatting does not carry over to each sheet

Sorry,

Please Login or Register  to view this content.

Thanks that's great!