Default Code to Insert Comments Based on Adjacent Cell Value?

[MacroPolo]

I have 2 columns of values. Column A has payments, and Column B has descriptions of each. I need to delete Column B, but first add the values as a comment to the adjacent cells in Column A. Also must insert no comment when Column B is blank. I know this should not be that hard, but I cannot get the code to work. Thank you for any help!!

http://i.imgur.com/W8AfoPd.png

W8AfoPd.png

[Neil_]

Please Login or Register  to view this content.

[MacroPolo]

Please Login or Register  to view this content.

Ended up using the code below but thank you so much! Marked as solved :D

Sub ConvertToComment()

Dim lastRow As Long, i As Long
Dim commentContents As String

lastRow = Range("A1048576").End(xlUp).Row

For i = 1 To lastRow
If Cells(i, 2) <> "" Then
commentContents = Cells(i, 2)
Cells(i, 1).AddComment
Cells(i, 1).Comment.Text Text:=commentContents
Cells(i, 2).ClearContents
End If
Next i

End Sub