Add Cell Value as Comment

lets suppose you want to add the values in column b to comments in column a

here is the code

Sub add_comment()
Dim i As Long
Dim x As String

For i = 1 To Range("a1").End(xlDown).Row
x = Cells(i, 2).Value
Cells(i, 1).Comment.Delete
Cells(i, 1).AddComment x
Next i
End Sub


it will add value of b1 as comment in a1, b2 as comment in a2, b3 as comment in a3 and so on.....