How to use the AddComment method of the range object

[Mister_joe]

It worked with:

With Selection.AddComment 
   .text myRange(1).Name.Name
   .Visible = False  
End With

There is only a single cell in the selection. It doesn't work when there are multiple cells in the selection.

Thanks for the assistance.