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