Macro que busque y resalte (color de relleno)

[ceSharp]

no me he dado cuenta de un detallito...
en esta parte del código VBA
------------------------
noEncontrado:
'comprobamos si ya hemos visto todas las hojas
If i = hojas And algunaCoincidencia = False Then
MsgBox ("No se han encontrado coincidencias")
Else
Exit Sub
End If
--------------------------------------------
es la forma de gestionar el error pero nunca va a saltar el mensaje porque la variable i nunca va a ser el total de hojas en esa función. hay que cambiar esa i por numHoja para que, en caso de no encontrar coincidencias, salte la alerta avisando.

salu2