This will add comments to cells A1 to A100

Sub AddComment()
Dim i As Integer
For i = 1 To 100
With Cells(i, 1)
.ClearContents
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Cells(i, 1).Text
End With
End Sub


Sandy

wrote:
Thanks,

Is there a way I can do this for multiple cells in one go?

I have a column of say - a 100 items I want this done for...

Sunil