Boa tarde,

Fiz uma macro Function para escolher determinado valor dependendo de um intervalo em moeda. O fato é que com certeza estou errando no algoritmo...por exemplo, não sei qual tipo de variável devo declarar para me retornar um valor em moeda, que no caso da programação clássica seria o "Real". Enfim, a macro não está me retornando o valor que eu preciso, que seria na coluna B (CustoReal) referente ao que está na coluna A (Custo) que é fixa. Deve ser um erro imbecil, mas realmente não deu...

Function CustoReal(number)

Dim Fator1 As Integer
Dim Fator2 As Integer

Fator1 = 8
Fator2 = 9
Select Case Custo
Case 0 To 1.99: CustoReal = Custo * Fator1
Case Is > 2: CustoReal = Custo * Fator2
End Select
CustoReal = Round(CustoReal, 2)

End Function