Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Not IsNumeric(Target) Then Exit Sub
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
Target = Application.RoundUp(Target, 0)
[COLOR="Red"]Application.EnableEvents = True[/COLOR]
End Sub