How to find and replace specific text in text boxes?

Find and Replace is a useful tool for us to find and replace cell contents or formulas quickly and conveniently in a worksheet. But now, I have multiple text boxes in my worksheet, and I want to find the specific text and replace it with other value in these text boxes only. Do you have any good ways to deal with this problem?

Find and replace specific text in multiple text boxes

Find and replace specific text in multiple text boxes

Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari!

Save 50% of your time, and reduce thousands of mouse clicks for you every day!

You can find and replace the text that you need manually one by one, but if there are multiple text boxes, this will be boring and tired. So the following VBA code can help you finish it at once.

1. Activate your worksheet, and hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Find and replace specific text in text boxes of current worksheet

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. Then press F5 key to run this code, and a prompt box will pop out to remind you entering your old text that you want to replace. See screenshot:

4. Go on clicking OK, and in this  prompt box, type the new text value that you want, see screenshot:

5. And then click OK button, the old values have been replaced with the new values that you entered in the current worksheet. See screenshots:

Related articles:

How to find and replace text in chart titles in Excel?

How to find and replace text within comments in Excel?

How to change multiple hyperlink paths at once in Excel?

Excel Productivity Tools

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd

Would you like to complete your daily work quickly and perfectly? Kutools for Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for you.

• Designed for 1500+ work scenarios, helps you solve 80% Excel problems.
• Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
• Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands.
• Become an Excel expert in 3 minutes. No longer need to remember any painful formulas and VBA codes.
• 60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
• Being used by 110,000 elites and 300+ well-known companies.

Read More Download Now Purchase

---

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

• Increases your productivity by 50% when viewing and editing multiple documents.
• Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
• Open and create documents in new tabs of same window, rather than in new windows.
• One second to switch between dozens of open documents!

Read More Download Now Purchase