A minha quando seleciono o intervalo todo ela me retorna "R$ - "
Function Nossa_Maximo(pIntervalo As Range) As Variant
'Variavel para armazenar o valor do retorno
aux_Retorno = 0
'Para cada "individuo" no "conjunto"
For Each celula In pIntervalo
'Verifica se o valor da celula é maior que o atualmente armazenado
If celula.Value > aux_Retorno Then
aux_Retorno = celula.Value
End If
Next
'Retorno da função
Nossa_Maximo = aux_RetornoEnd Function
