Sub ExtractComment()
Dim cel As Range
For Each cel In Selection
cel.Offset(0, 1).Value = cel.Comment.Text
cel.Comment.Delete
Next cel
End Sub

Sub CreateComment()
Dim cel As Range
For Each cel In Selection
cel.AddComment cel.Offset(0, -1).Value
Next cel
End Sub


HTH
Bob


"camlad" wrote in message
...
First

I need to extract the text from comments in approximately 500 cells in
column B and place the text into the cells in column C. I am not talking
about simply moving the comment - he text needs to go from comment to
adjoining cell.



A bonus would be to delete the comment.



Please can you help me with a macro to do this automatically?



Second

Conversely I need a macro to do the reverse - that is to take the text
from a cell and put it into a new comment in the adjoining cell - let us
say from column B to column C



Thank you



Camlad