Hi try this, it's case sensitive so you may need to play with the strings

Sub stitute()
For Each Comment In ActiveSheet.Comments
Comment.Text Text:=Replace(Comment.Text, "linear", "exponental")
Next
End Sub

Mike

"Knox" wrote:

I have a large range of cells that contain comments. I want to change the
word linear to exponential in all the comments. Is there a way to do this?