Function RoundTo(pNumber As Long, pFactor As Long) RoundTo = Round(pNumber / pFactor) * pFactor
End Function
' ---------------------------------------------------------------
Sub TestMe() Debug.Print RoundTo(2543, 10)	' => 2540 Debug.Print RoundTo(2546, 10)	' => 2550 Debug.Print Application.RoundUp(10.1, 0)	' => 10 Debug.Print Application.RoundUp(10.6, 0)	' => 11 Debug.Print Application.RoundDown(10.6, 0)	' => 10
End Sub