put info from cell into comment
 

Not sure how to use this UDF.....I need the information that is in other
cells to be put into a comment box.
Shaun


Try this UDF:

Function copycomment(r As Range)
Application.Volatile
Dim whereami As Range
Set whereami = Application.Caller
If whereami.Comment Is Nothing Then
Else
whereami.Comment.Delete
End If
whereami.AddComment Text:=r.Value
copycomment = ""
End Function


I need to link information found in other sheets of my workbook to comment
boxes on my first sheet. Can this be done, and if so, how?? Any help is
much appreciated, thanks.

Shaun
--
Gary''s Student

put info from cell into comment
 

Just paste your UDF into a regular module and in the cell where you want the
comment box, type =Copycomment(Sheet2!B1) and it will put the value in cell
B1 of sheet2 in the comment box where you typed that formula

hth
Vaya con Dios,
Chuck, CABGx3



"Shaun" wrote:

Not sure how to use this UDF.....I need the information that is in other
cells to be put into a comment box.
Shaun


Try this UDF:

Function copycomment(r As Range)
Application.Volatile
Dim whereami As Range
Set whereami = Application.Caller
If whereami.Comment Is Nothing Then
Else
whereami.Comment.Delete
End If
whereami.AddComment Text:=r.Value
copycomment = ""
End Function


I need to link information found in other sheets of my workbook to comment
boxes on my first sheet. Can this be done, and if so, how?? Any help is
much appreciated, thanks.

Shaun
--
Gary''s Student

put info from cell into comment
 

Shaun

Stick with one thread.

You have an answer at your original posting in this NG


Gord Dibben MS Excel MVP

On Tue, 27 Jun 2006 10:43:02 -0700, Shaun
wrote:

Not sure how to use this UDF.....I need the information that is in other
cells to be put into a comment box.
Shaun


Try this UDF:

Function copycomment(r As Range)
Application.Volatile
Dim whereami As Range
Set whereami = Application.Caller
If whereami.Comment Is Nothing Then
Else
whereami.Comment.Delete
End If
whereami.AddComment Text:=r.Value
copycomment = ""
End Function


I need to link information found in other sheets of my workbook to comment
boxes on my first sheet. Can this be done, and if so, how?? Any help is
much appreciated, thanks.

Shaun