Selección de mayor o menor valor de 2 columnas

Sólo se me ocurren dos formas:
- La más sencilla es que en una nueva columna pongas el valor menor de las dos anteriores y después elijas ese valor en el BuscarV.
- Algo más complicada sería programar una función similar a "BuscarV" que te devuelva el menor de los dos valores. Podría ser algo así:
Function buscarMenor(ByVal valorBuscado As String, ByRef rangoCeldas As Range, ByVal nCol1 As Integer, ByVal nCol2 As Integer) As Variant
    Dim maxCol As Integer
    Dim i As Integer
    Dim minVal As Double
    Dim auxSalida As Variant
    If nCol1 > nCol2 Then maxCol = nCol1 Else maxCol = nCol2
    If maxCol > rangoCeldas.Columns.Count Then ' Error han solicitado una columna que no hay en el rango
        buscarMenor = "error: columnas incorrectas"
        Exit Function
    End If
    auxSalida = Null
    For i = 1 To rangoCeldas.Rows.Count
        If rangoCeldas.Cells(i, 1) = valorBuscado Then ' Encontrado
            If rangoCeldas.Cells(i, nCol1) > rangoCeldas.Cells(i, nCol2) Then
                minVal = rangoCeldas.Cells(i, nCol1)
              Else
                minVal = rangoCeldas.Cells(i, nCol2)
            End If
            If IsNull(auxSalida) Then auxSalida = minVal
            If auxSalida > minVal Then auxSalida = minVal
        End If
    Next i
    If IsNull(auxSalida) Then
        buscarMenor = "Error: Texto no encontrado"
      Else
        buscarMenor = auxSalida
    End If
End Function