I think I see the problem, too many words...
:rolleyes: :rolleyes:
Just kidding, the above works fine, but the mod suggestion is a good one.
Try this:
Function RoundToNearest2(dblNumber As Double, varRoundAmount As Double, _
Optional varUp As Variant) As Double
RoundToNearest2 =...