Sub FindAndReplace(ByVal strSearch As String, ByVal strReplace As String)
Cells.Replace What:=strSearch, Replacement:=strReplace, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub main()
Call FindAndReplace("abcd", "ww")
End Sub