copy Cell Notes to Cell

[VenturSum]

Hi,

I'm having some trouble copying a Cell's Notes/Comments into another cell and visa versa
- Characters beyond 255 are truncated, and
- The formatting is lost.


I want to display in a new worksheet, the data in all the comment boxes in another worksheet
- Currently I'm Using this code:

--------------
NewWs.Cells(lRow, lCol).Value = Ws.Cells(lDataRow, lDataCol).NoteText
--------------

Any thoughts on:
1) How to move over the data with out it being truncated
2) How to save the formatting. -- If the first word is bold, how can I save the bold in the new cell.

Any thoughts would be helpful.

John

 

[VenturSum]

The above solutions was close....

Here is how the code should read:

--------------------------

NewWs.Cells(lRow, lCol).Value = Ws.Cells(lDataRow, lDataCol).Comments.Text

--------------------------

See the last 2 qualifiers.

Enjoy.

John