View Single Post
  #3   Report Post  
Dave Peterson
 
Posts: n/a
Default

You could use a little macro:

Option Explicit
Sub testme()
Dim myCommentCells As Range
Dim myCell As Range

Set myCommentCells = Nothing
On Error Resume Next
Set myCommentCells = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeComments))
On Error GoTo 0

If myCommentCells Is Nothing Then
MsgBox "Please Select a range with comments and try again!"
Exit Sub
End If

For Each myCell In myCommentCells.Cells
With myCell
.Value = .Value & " " & .Comment.Text
End With
Next myCell

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm


DFIChris wrote:

A cell has existing text in it and it has a comment attached to it. I'd like
to append the comment to the end to the existing text in the cell.

Has anyone done this already? Is it possible without going into each and
every comment?

Thanks,
Chris


--

Dave Peterson