Sub BBB()
For Each cell In Range("I1:I3")
Cells(cell.Row, "G").NoteText Text:=cell.Text
Next
End Sub

--
Regards,
Tom Ogilvy


"pmipalma" wrote:

Hi,

I want to create a macro that will pick up a range of cells aa19:aa95
In these cells there is a formula
=IF($E19="YES",VLOOKUP($C19,'Brand Detail'!$A$1:$P$5000,AA$6,FALSE),"")
for example

I want to add comments transfering the information (TEXT) to column
(G)

How should the macro coding look like to do this?

Many thkx for your answer
Steven