Answer by
NarenMukherjee (308)
Worksheets. Select
What = InputBox("search word")
repl = InputBox("replace word")
Cells. Replace What:=What, Replacement:=repl, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub