ultra useful excel macro

comment_taro.vba

Sub となりセルをコメントにし太郎()
    Dim pos As Range
    Dim relatedCell As Range

    Set pos = Range(ActiveCell.Address)
    Set relatedCell = pos.Offset(0, 1)

    If Not relatedCell.Text = "" Then
        On Error GoTo SET_COMMENT_ERROR
        pos.AddComment
        pos.Comment.Visible = False
        pos.Comment.Text Text:=relatedCell.Text
    End If

SET_COMMENT_ERROR:

End Sub