copy only fonts(text color) from one string of text to another string of text

Can someone please help me with a short sub routine that shows how to copy only the fonts, basically just the color fonts, from one range to another range; ie copy only the colors not the values from one range of text to another range of text. I have looked everywhere and their are no Excel functions that will do this and I can't figure out how to do this in vba. xlspastespecial doesn't recognize the font values.

Thanks very much,

Andrew
[email protected]

Does something like this help?

Please Login or Register  to view this content.

Thank you John. However, the code worked one time then stopped. I added the following line, but that still didn't help. Any Idea why this is?
Application.CutCopyMode = False

Thanks again,

Andrew

Hi AndyLitch,

No that wasn't the problem. Could it be that I am using Excel 2003? But it worked once? As a fix I also copied the macro to the file were I wanted to use the macro instead of keeping it in the Personal Files, but that didn't help either. Any other ideas about why it doesn't work?

Thanks,

Andrew

Hi Andy,

Neither sub routine worked. There must be a way to do this. Does anyone know the answer?

Thanks,

Andrew