VBA - Método Find de excel

[mrocf]

Hola! Laufwerk. El procedimiento que propones parece bastante engorroso. ¿Qué te parece si el nombre y apellido a localizar lo buscas "de una sola mirada" a la tabla?.

Por ejemplo:

Código:

Sub BuscarDosCeldas()
' La Base de Datos ubicada en la hoja "Hoja1" contiene:
' [A1:A100] los nombres
' [B1:B100] los apellidos
' Los nombres y apellidos son unidos y pasados a la variable 'BD'
With Sheets("Hoja1")
  BD = Evaluate("TRANSPOSE(" & _
    .[A1:A100].Address(External:=True) & " & "" "" & " & _
    .[B1:B100].Address(External:=True) & ")")
End With

' El nombre y apellido buscados se encuentran en [D2:E2] de la HOJA ACTIVA
' Mediante la función COINCIDIR() (Match) localizo lo buscado en 'BD'
On Error Resume Next
  Fila = 0
  Fila = WorksheetFunction.Match([D2] & " " & [E2], BD, 0)
On Error GoTo 0
  
' Mensaje si no existe el dato
If Fila = 0 Then MsgBox "No existe": Exit Sub
' Selección si existe el dato
Application.Goto Sheets("Hoja1").[A1].Offset(Fila - 1)
End Sub 

Fíjate si puedes adaptarlo a tus necesidades.
Saludos, Cacho.