Hello All

I have the following macro at the moment

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

It is an easy and quick way to have the data shows as comment in column
G

But now i want to format the data and received the code

rngCells.Areas(1).Cells(lCnt).Comment.Shape.TextFr ame.Characters.Font.Size
= 14

'rngCells.Areas(1).Cells(lCnt).Comment.Shape.TextF rame.AutoSize = True
rngCells.Areas(1).Cells(lCnt).Cells.Comment.Shape. Width =
400
rngCells.Areas(1).Cells(lCnt).Cells.Comment.Shape. Height =
200

But when i will make the following code it is not working

For Each cell In Range("AA19:AA95")
Cells(cell.Row, "G").NoteText Text:=cell.Text
rngCells.Areas(1).Cells(lCnt).Comment.Shape.TextFr ame.Characters.Font.Size
= 14

'rngCells.Areas(1).Cells(lCnt).Comment.Shape.TextF rame.AutoSize = True
rngCells.Areas(1).Cells(lCnt).Cells.Comment.Shape. Width =
400
rngCells.Areas(1).Cells(lCnt).Cells.Comment.Shape. Height =
200
Next
End Sub


What should i do to get all the Comment data been formatted correctly??