kopier indhold af celle ind som en kommentar

Prøv    Range("B1").AddComment (Range("A1").Text)

den går ikke

tildel evt makro en genvejstast
marker den første celle der skal kopieres
aktiver makro
værdi kopieres til næste kolonne

Sub Kommentar()
On Error Resume Next
ActiveCell.Offset(0, 1).Comment.Delete
ActiveCell.Offset(0, 1).AddComment ActiveCell.Text
ActiveCell.Offset(1, 0).Activate
End Sub

*