This code prompts the user to enter a search term and a replacement term, then performs a find and replace operation in the active worksheet.
VBA Code:
Sub FindAndReplace()
Dim findTerm As String
Dim replaceTerm As String
findTerm = InputBox("Enter the search term:")
replaceTerm = InputBox("Enter the replacement term:")
Cells.Replace What:=findTerm, Replacement:=replaceTerm, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub