Exmpl:

Sub cpy()
ActiveSheet.Range("A1").Copy ActiveSheet.Range("B1")
End Sub

If you don't want to copy everything, you have to use the paste special
method to specify exactly what you want entered in the receiving range.


"T. S." wrote:

Hi there.
How do I copy the contents of cell a (contains text in several colors)
to cell B, so that colors/fonts etc are preserved?

Thanks in advance.