Pesquisar Registro

[Bruno Jose Bariotti]

Pessoal, bom dia

Estou com um problema na minha aplicação, segue:

No meu excel tenho uma sheet chamada parametros, nela tenho duas colunas, onde a coluna A é o nome do parametro e a coluna B é o valor do parametro.

Criei um metodo chamado BuscarParametro onde eu recebo o nome do parametro (coluna A) e devo retornoar o valor do parametro (coluna B).

O metodo procura na coluna A o valor que recebeu por parametro, encontrando ele pega o numero da linha e concatena com a coluna B para saber o valor do parâmetro. 

Minhas duvidas seria:
1 - Tem uma forma melhor e mais eficiente de fazer isso?
2 - No codigo do metodo, não retorna nada no metodo Find, mesmo existindo valor na planilha

Segue abaixo o metodo:

 

Public Function BuscarParametro(Parametro As String) As String

    Dim Resultado As Range
    Dim Posicao As String
    
    Set Resultado = Sheets("parametros").Range("A1:A9999").Find(Parametro, _
                    LookIn:=xlValues, _
                    LookAt:=xlPart, _
                    SearchOrder:=xlByRows)
                    
    If Resultado Is Nothing Then
        Exit Function
    End If
    
    Posicao = "B" & Resultado.Row
    
    BuscarParametro = Sheets("parametros").Range(Posicao)

End Function