You need a VBA procedure to do this:

Sub AAA()
Dim Rng As Range
For Each Rng In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeComme nts)
Rng.Comment.Text Text:="This is new text"
Next Rng
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Husain" wrote in message
...
I have to change all the comments in a sheet in one go , not
one by one