Hello,

I suggest to use something like:

Function grab(r As Range, _
Optional sdel As String = " ") As String
Dim v, s As String

For Each v In r
grab = grab & s & v.Text
s = sdel
Next v

End Function

Sub testme()
Range("D1").ClearComments
Range("D1").AddComment grab(Range("myrange"))
End Sub

Regards,
Bernd