Как вставить в примечание к ячейке текст из буфера обмена?

Sub PasteDataToComments()
Dim DataObj As Object
Dim CopiedText As String
Dim Lines() As String
Dim rng As Range
Dim cell As Range

Set DataObj = CreateObject("MSForms.DataObject")
DataObj.GetFromClipboard
CopiedText = DataObj.GetText
Lines = Split(CopiedText, vbCrLf)
Set rng = Selection

For Each cell In rng
If cell.Comment Is Nothing Then cell.AddComment
cell.Comment.Text Text:=Join(Lines, vbCrLf)
Next cell
End Sub