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
'<<=============


---
Regards,
Norman