Hello,

Replace SubString with another string in TextBox.

Sub ReplaceTextBox(NameTextBox, SearchString, StringReplace)
ActiveSheet.Shapes(NameTextBox).TextFrame.Characte rs.Text = _
Replace(ActiveSheet.Shapes(NameTextBox).TextFrame. Characters.Text,
SearchString, StringReplace)
End Sub

Sub essai()
ReplaceTextBox "xxx", "sample", "zzz"
End Sub

http://cjoint.com/?dzr3sAgRjI

JB http://boisgontierj.free.fr

On 24 mar, 16:00, Ed wrote:
How do I find and replace text in a Text Box?
--
Ed