Redondear a la alza?

[mariano_donati]

Hola custo, la verdad es que no sé si vendrá una función que te permita hacer eso, pero acá hice una función que si lo puede hacer.

Function RoundNumber(NumberToRound)

Dim vRoundedNumber
Dim vIntNumber
Dim vRoundNumber

IntNumber = Int(NumberToRound)
RoundNumber = Round(NumberToRound)

If IntNumber = RoundNumber Then
RoundedNumber = IntNumber + 1
Else
RoundedNumber = RoundNumber
End If

RoundNumber = RoundedNumber

End Function

Espero que te sirva.
Saludos!.