replace text string in cell automatically

[Guest]

How could I replace a text string in cell programatically?
Tks

 

[Norman Jones]

Hi Stephen,

How could I replace a text string in cell programatically?

Try something like:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range

Set WB = Workbooks("Book1") '<<==== CHANGE
Set SH = WB.Sheets("Sheet2") '<<==== CHANGE
Set Rng = SH.Range("A1:A10") '<<==== CHANGE

Rng.Replace What:="Bill", _
Replacement:="Ben", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub
'<<=============