Find Replace
 

But you could use Edit|find to search through the comments. If you find it in
the comment, replace it there.

If you have lots of comments and few get changed, it might be quicker:

Option Explicit
Sub testme01()

Dim FoundCell As Range
Dim FindWhat As String
Dim WithWhat As String

FindWhat = "ASDF"
WithWhat = "qwer"

Do
Set FoundCell = ActiveSheet.Cells.Find(What:=FindWhat, _
After:=ActiveCell, _
LookIn:=xlComments, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)

If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.Comment.Text _
application.substitute(FoundCell.Comment.Text, _
FindWhat, WithWhat)
End If
Loop

End Sub

And I used application.substitute. Chip used Replace. Replace will work in
xl2k and above.

(be aware that both Replace and application.substitute are case sensitive--so
it's probably a good idea to match case in the .Find.)

wrote:

Is there a way to use this code and have it apply to Comments only?
I am trying to use the MatchCase and LookAt options.

tia

rngMyCell.Cells(xlCellTypeComments).Replace _
What:=strEdit_Find, Replacement:=strEdit_Replace, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True

--

Dave Peterson