This will add a comment with the active cell's text
Sub AddCommentWithText()
If TypeName(Selection) <> "Range" Then Exit Sub
With ActiveCell
.AddComment
.Comment.Text Text:=ActiveCell.Text
End With
End Sub
© Copyright
andrewsexceltips.net
All Rights Reserved.