I am using this code to search my worksheet and replace one name with another based on the values of two cells.
Sub seekandreplaceexceptions()
Dim Findtext As String
Dim Replacetext As String
Findtext = Range("AL1").Value
Replacetext = Range("AL2").Value
Cells.Replace What:=Findtext...