Solved: macro for every cell on the sheet

[mdmackillop]

Add this code to the worksheet module
[VBA]
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fmla As String
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Target.HasFormula Then
Target = Application.Round(Target * 4, 0) / 4
Else
Fmla = Application.Substitute(Target.Formula, "=", "")
Target.Formula = "=ROUND(4*(" & Fmla & "),0)/4"
End If
Application.EnableEvents = True
End Sub

[/VBA]