Move text data including detailed formatting

[Guest]

Hello,
Can anyone help with the following:

I want to move some text data from one worksheet to another. Some of the
text entries are partially formatted (i.e., the font of only some characters
in the cell is bold, or in color, etc).

I've tried to use the Characters property, but I don't know how to read the
(start, length) values and the rest of the font properties from the source
cell.

In advance thank you!

Adrian, Ottawa

 

[Guest]

The best way is copy/paste:

Sub movit()
Set r1 = Sheets("Sheet1").Range("A1")
Set r2 = Sheets("Sheet2").Range("A2")
r1.Copy r2
End Sub