Annwyl Syr
I need to
-How To Find And Replace Text In sheet excel same CTRL+H with VBA
As I find https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html about Text box and chart
IF I need "Find And Replace Text In sheet excel same CTRL+H with VBA"
Diolch yn fawr
celf
This code my revise not work refer
I need to
-How To Find And Replace Text In sheet excel same CTRL+H with VBA
As I find https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html about Text box and chart
IF I need "Find And Replace Text In sheet excel same CTRL+H with VBA"
Diolch yn fawr
celf
This code my revise not work refer
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
Dim YY 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 YY In xWs.Worksheest("Sheet1").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet2").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet3").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet4").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub