To add cell value to a Comment..............

Sub Comment_Add()
Dim cmt As Comment
Dim r As Range
For Each r In Range("D3:D100") 'adjust to suit
Set cmt = r.Comment
If cmt Is Nothing Then
Set cmt = r.AddComment
cmt.Text Text:=r.Text
End If
Next r
End Sub


Gord Dibben MS Excel MVP

On Wed, 22 Apr 2009 13:42:01 -0700, Eddy Stan
wrote:

Some help please

by cell value (customer code), i show thro' vlookup() are related details
but instead of showing as cell value, can the mobile number (which is cell
value in the master) be shown as comment in this sheet, while cursor is
placed on customer contact persone name
is this possible !! advance thanks