Paste selected cell value as comment without overwriting existing comment

'---------------------------------------------------------------------------------------
' Module    :
' DateTime  : 16/12/2005 18:06
' Author    : Roy  Cox (royUK)
' Website   : [url]www.excel-it.com[/url]
' Purpose   : place comment text in adjacent cell
'---------------------------------------------------------------------------------------


Sub GetCommentText()
    Dim rRng As Range, rCl As Range
    Dim sCmt As String
    
    
    On Error Resume Next
    Set rRng = Intersect(Selection, _
    Selection.SpecialCells(xlCellTypeComments))
    On Error GoTo 0
    If rRng Is Nothing Then
        MsgBox "No comments within selection"
        Exit Sub
    End If
    
    
    For Each rCl In rRng
        With rCl
            sCmt = .Comment.Text & vbNewLine & rCl.Value
            .Comment.Delete
            .AddComment (sCmt)
            ''///format Note(Comment)
             With rCl.Comment
                    .Shape.Shadow.Visible = msoFalse
                    .Visible = False
                    .Shape.TextFrame.AutoSize = True
                End With
        End With
    Next rCl
    
End Sub

Sub GetCommentText()
    Dim rRng As Range, rCl As Range
    Dim sCmt As String
    
    For Each rCl In Selection
        If rCl.Comment Is Nothing And rCl.Text <> "" Then
            sCmt = rCl.Value
            rCl.AddComment (sCmt)
            ''///format Note(Comment)
             With rCl.Comment
                    .Shape.Shadow.Visible = msoFalse
                    .Visible = False
                    .Shape.TextFrame.AutoSize = True
                End With
                End If
    Next rCl
    
End Sub

Sub GetCommentText()
    Dim rCl As Range
    Dim sCmt As String
    
    For Each rCl In Selection.Cells
        If rCl.Text <> "" Then
            With rCl
                If .Comment Is Nothing Then
                    sCmt = rCl.Value
                    Else: sCmt = .Value & vbNewLine & .Comment.Text
                    .Comment.Delete
                End If
                Debug.Print sCmt
                .AddComment (sCmt)
                ''///format Note(Comment)
                With rCl.Comment
                    .Shape.Shadow.Visible = msoFalse
                    .Visible = False
                    .Shape.TextFrame.AutoSize = True
                End With
            End With
        End If
    Next rCl
    
End Sub