I think this will probably work - I haven't tested it yet though
For your problem, you would enter RoundUp(5.23, 1)
Public Function RoundUp(number As Double, significant As Integer) As Double
RoundUp = Round(number, significant)
If RoundUp < number Then
RoundUp = RoundUp + (1 / (10 * significant))
End If
End Function
You could then format the result using Format(5.3, "0.00")
Hope that helps,
Mike
Mike
EchoVue.com
|