¿Problema con Excel vba?

Esto no requiere VBA, simplemente use la fórmula \ \ \ para ajustar el rango de la fórmula usted mismo.

=SI(CONTAR.SI(Hoja2!B:K,A2),INDEX(Hoja2!A:A,SUMAPRODUCTO((Hoja2!$B$2:$K$100=A2)*fila(Hoja2 ! $ B$2:$K$100)), "No existe tal nombre")