duda: problemas para copiar datos

hola una ultima duda

tengo un macro con este macro, lo que hace es buscar las palabras que esten entre el rango "principio" y "final" y escribirlas en la casilla a2 y me funciona bien.

pero ahora quiero un macro que haga la misma funcion pero con todos los codigos que tengan esas caracteristicas, ya que este macro en esas situaciones me marca error

Sub selecciondetextoentrepalabras()

'macro que selecciona texto entre dos palabras

principio = "<a class=""submenu"" ""href="""

Final = "</a>"

texto = Range("a1")

x1 = InStr(texto, principio) + Len(principio)

x2 = InStr(texto, Final) - x1

Range("a2") = Mid(texto, x1, x2)

End Sub

- - - - - Mensaje combinado - - - - -

aclaro que lo que me gustaria hacer es copiar todos los terminos que tengan las mismas variantes, por ejemplo que copie todos los que inicien con "href=" y terminen con " />

eso como se hace?