Add Cell Text to Comments in selection

Sub CellTextToComment()
 Dim c As Range

 If TypeName(Selection) <> "Range" Then Exit Sub

 For Each c In Selection
  c.Comment.Text Text:=c.Text
 Next c

End Sub


© Copyright andrewsexceltips.net All Rights Reserved.