Paste as Comment

[Truiz]

Is there a way to paste information as a Comment I mean a shortcut or something alike if for example I have content in cell B1 and want that to be pasted as a comment in C1 how can I make that happen without having to go to Review Add Coment and then paste.

 

[John_w]

Try this macro assigned to a shortcut key:

Public Sub Macro()
    With Range("C1")
        If .Comment Is Nothing Then
            .AddComment Range("B1").Text
        Else
            .Comment.Text Range("B1").Text
        End If
    End With
End Sub

 

[Truiz]

That only works for cells b1 and c1 I need the code to work for the entire column as long as there are values in B

 

[Truiz]

As I mentioned the code does not work did some research and this works

Public Sub addComments()    Dim rCell As Range
    Dim cCell As Range


    For Each rCell In Selection
        Set cCell = rCell.Offset(0, -1)
        With rCell
            .ClearComments
            .AddComment
            .Comment.Text Text:=cCell.Value
        End With
    Next
    Set rCell = Nothing
End Sub