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
End Sub