Como busco enexceel

Puedes utilizar esta función, me avisas si te ayuda, la debes pegar en tu libro, la fórmula que escribirías seria la siguiente:
=BuscarEnVariosRangos("Enrique";2;0;D:E;F:G;H:I;J:K), espero me comprendas.
Function BuscarEnVariosRangos(ValorBuscado As Variant, btColumna As Single, blOrdenado As Boolean, ParamArray mtrR() As Variant) As Variant
    Dim iteradorR As Variant, Encontrado As Variant
    On Error GoTo NoEncontrado
    For Each iteradorR In mtrR()
        Encontrado = Application.WorksheetFunction.VLookup(ValorBuscado, iteradorR, btColumna, blOrdenado)
        If Not IsEmpty(Encontrado) Then
            BuscarEnVariosRangos = Encontrado
            Exit Function
        End If
    Next iteradorR
    BuscarEnVariosRangos = "No encontrado."
    Exit Function
NoEncontrado:
    If Err.Number = 1004 Then
        Resume Next
    Else
        BuscarEnVariosRangos = Err.Description
    End If
End Function