change values in multiple text boxes at once

[krazykevin76]

I have a worksheet with 25 text boxes. Each text box contains a formula that references another worksheet cell like "=Sheet1!A5". How can I change all 25 text box formula to say "=Sheet2!A5. Each text box references a different cell, ie A5, A6, A7.......

Find and replace doesn't work. Is there a simple way to do this?


thanks

 

[krazykevin76]

I guess I need to clear up a little. These boxes are actually drawn out rectangles. Not text boxes on a form per say.

 

[Jaafar Tribak]

Maybe something like this :

Sub Test()

    Dim oTxtBox As TextBox
    
    For Each oTxtBox In ActiveSheet.TextBoxes
        oTxtBox.Formula = Trim(Replace(oTxtBox.Formula, "1", "2", , 1))
    Next

End Sub