Copy cell formatting and keep hyperlink

Hi all
Here is the scenario:

Cell(A1) has formatting such as font, font size, font colour etc.
Cell(B1) has no formatting (i.e. it has default formatting), but it has a hyperlink.

Now, I want to copy A1 formatting to B1 through code.
So, I recorded a Macro by using Format Painter and copying the formatting of A1 to B1. This code is provided below:

Please Login or Register  to view this content.

However the problem is that when I copy A1 formatting to B1 through "Format Painter" (in other words the code above), not only is the formatting copied to B1, the hyperlink present in B1 (and not present in A1) is also erased.

So, the solution I need is a way to copy the formatting of A1 to B1 only and keep the hyperlink in B1.

Hope I have been able to explain myself :-)
Can someone please help?

Thanks in advance.

Click GO ADVANCED and use the paperclip icon to post up a copy of your workbook. Make sure the workbook demonstrates your desired results if possible, or just highlight the cells you're trying to fix. Use BEFORE/AFTER sheets if that helps make it clearer.

I suppose one way is to simply remember the Hyperlink and put it back. Also, always remember to remove all the "selecting", the macro recorder records your human actions, too, those need to be edited out.

Please Login or Register  to view this content.