How To Find And Replace Text In sheet excel same CTRL+H with VBA

Question

Dear Sir
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"
Thank you
art
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

Sut i Ddod o Hyd i ac Amnewid Testun Yn y ddalen ragori ar yr un CTRL + H â VBA