Hi Angie.
Simply, try this macro to be pasted in the worksheet's code module, like
Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub 'only column A
If Not IsNumeric(Target.Value) Then
MsgBox "---- Only numbers, please! <----"
Target.Value = ""
Exit Sub
End If
Target.Value = Int(Target.Value + 0.5)
End Sub

Regards,
Eliano


"Angie" wrote:

I have created a budget with dollars and cents, however I would like to have
the cell round the number. For instance, if I type in $5.45 I'd like the
cell value to be $5.00; If I type $117.88, I'd like it to read $118.00.
How do I accomplish this?