Excel - Busqueda en Excel

la llamas asi BuscarTextoEnFormas("TxtABuscar")

Sub BuscarTextoEnFormas( t as string )

 Dim x As String

    Dim forma As Shape

    Dim contador As Long

    Dim hoja As Worksheet

    contador = 0

    For Each hoja In Worksheets

        For Each forma In hoja.Shapes

        hoja.Select

            If forma.Type = msoTextBox Then

                contador = contador + 1

                forma.Select

                x = Selection.Text

                Debug.Print (t & " - " & x)

                If InStr(1, x, t, vbTextCompare) > 0 Then

                    MsgBox "Texto : " & t & " Encontrado " & hoja.Name & " En la Forma " & forma.Name

                End If

            End If

        Next forma

    Next hoja

End Sub