Buscar y replace cuadros de text y macros

¿Hay alguna forma de encontrar y replace macros incrustadas en cuadros de text?

Ejemplo. Creo muchos cuadros de text y les asigno macros, digamos RunBox.1 WalkBox.1 SleepBox.1 ahora digamos que copio esos cuadros de text. Tendrá la macro que asigné en el cuadro anterior y me gustaría cambiar .1 a .2

Dim tb As TextBox Dim actionName As String Sub AAA() For Each tb In ActiveSheet.TextBoxes actionName = tb.OnAction actionName = Replace(actionName, "CGSF", "KBTUGSF") tb.OnAction = actionName Next End Sub 

Esto no funciona, no estoy seguro de lo que tengo que hacer.

Cambie la propiedad OnAction del textbox.

 Dim tb as TextBox Dim actionName as String For Each tb In ActiveSheet.TextBoxes actionName = tb.OnAction actionName = Replace(actionName, ".1", ".2") tb.OnAction = actionName Next