This seemed to work but when I changed the font color to red and brackets
around it a debug box keeps popping up. I have several debit and credit
columns and then of a total column for daily balance, monthly balance, and
balance forward. I need my credit columns to be the negatives in red and
brackets. How do I debug this? Thank you for all your help!



"Rob van Gelder" wrote:

Hooking the Change event will do it.

First, create a named range called "MyNegativeRange"

Then right-click the worksheet tab and select View Code.
Paste this code.

Private Sub Worksheet_Change(ByVal Target As Range)
Const cNegRangeName = "MyNegativeRange"
Dim rngTarget As Range, rng As Range

Set rngTarget = Intersect(Target, Range(cNegRangeName))
If Not rngTarget Is Nothing Then
Application.EnableEvents = False
For Each rng In rngTarget
If IsNumeric(rng.Value) Then rng.Value = -Abs(rng.Value)
Next
Application.EnableEvents = True
End If
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Kathy" wrote in message
...
I need to know how to make a column so that when you type a number into it,
it will become a negative number without you having to type the minus sign
yourself. The regular negative number format does not work and I cannot
come
up with a custom one that works either. It must subtract when totaling the
columns.