Round up to nearest quarter

Sub mt()
  Dim cell          As Range

  On Error GoTo NeverMind
  For Each cell In ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants, xlNumbers)
    cell.Value2 = WorksheetFunction.Ceiling(cell.Value2, 25)
  Next cell
NeverMind:
End Sub