I'm trying to convert a bunch of text to comments. I found this snippet online:
Sub TextToComments()
'Updateby20141128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "TextToComments"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.NoteText Text:=Rng.Value
Next
End Sub
The problem is, it skips a lot of the cells in the range. It skips longer cells, but it's not merely that it's running to some length limit, since it skips some that are shorter than some it doesn't skip. I can't tell any reason it's picking some and not others.
Bookmarks