searching for multiple occurrence of a text and changing another text in vba
<p>I am pretty new at vba. I am searching for a string in excel can also be multiple occurrence and then for each occurrence changing another text if this string is found. but my code is going into infinite loop. How can i achieve that? Here is my code:</p>

<pre><code>Private Sub PRODA_Replace_IfNDM_Click()
    Dim FindWord As String, Found As Range
    Dim firstAddress As String
    Dim rslt As Range
    FindWord = "/*_NDM*"
    Set Found = Sheets("PRODA").Cells.Find(What:=FindWord, _
                                           LookIn:=xlValues, _
                                           lookAt:=xlPart, _
                                           searchOrder:=xlByRows, _
                                           searchDirection:=xlNext, _
                                           MatchCase:=False)
    If Not Found Is Nothing Then
        firstAddress = Found.Address
        Do
            Set rslt = Sheets("PRODA").Cells.Find(What:="OWNER:*", _
                                                  After:=Found, _
                                                  LookIn:=xlValues, _
                                                  lookAt:=xlPart, _
                                                  searchOrder:=xlByRows, _
                                                  searchDirection:=xlNext, _
                                                  MatchCase:=False)
            Sheets("PRODA").Cells.Replace What:=rslt, _
                                          Replacement:="OWNER:chrndm", _
                                          lookAt:=xlPart, _
                                          searchOrder:=xlByRows, _
                                          MatchCase:=False, _
                                          searchFormat:=False, _
                                          ReplaceFormat:=False
            MsgBox Found
            If Found Is Nothing Then
                GoTo endFinding
            End If
            Set Found = Cells.FindNext(After:=Found)
        Loop While Not Found Is Nothing And firstAddress &lt;&gt; Found.Address
    End If
endFinding:
    MsgBox "changed successfully"
End Sub
</code></pre>