Excel: Buscar un dato y seleccionarlo

[David]

Prueba esto:

Código vb:

Dim busca_envio As Range
Set busca_envio = [D:D].Find(What:=Hoja1.Range("H53").Value)
If Not busca_envio Is Nothing Then
    busca_envio.Activate
    'Encontrado
Else
    'No encontrado
End If
 

Saludos.