Using values of cells in a comment
Sub ABC()
For Each Cell In Range("E1:E5")
If Cell.Value = 1 Then
With Cell.Offset(0, -4)
s = .Range("A1").Value & _
Chr(10) & Range("B1").Value _
& ", " & Range("C1").Value _
& Chr(10) & Range("D1").Value
End With
Cell.NoteText s
End If
Next
End Sub
worked for me.
--
Regards,
Tom Ogilvy
"Bamaopoly" wrote:
MS Excel 2003
I'm writing a macro that will insert a comment in a cell based upon the cell
value. For instance,
A B C D E
1 Address City State Phone 1
What I want to happen is that if E1 = 1 then
Insert a comment in cell E1 as follows:
A1
B1, C1
D1
to read
Street
City, State
Phone
I've got the AddComment working, but how do I pull the values of A1-D1 to
use as text in the comment?
Any help would be appreciated, thanks in advance.
|