Make cells negetive amount
 

I want to make any value that is put into a cell to be a negitive value. So
if 5.00 is put in it's value shows as negetive value. It this possible?

Make cells negetive amount
 

This works on range H1:H10, change to suit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Value 0 Then .Value = -.Value
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"ggant" wrote in message
...
I want to make any value that is put into a cell to be a negitive value.
So
if 5.00 is put in it's value shows as negetive value. It this possible?

Make cells negetive amount
 

If you only want the display to APPEAR to be negative, then you can just do a
custom format of -#### on the cell. The actual number tho, if used in
other formulas will be positive.

Vaya con Dios,
Chuck, CABGx3



"ggant" wrote:

I want to make any value that is put into a cell to be a negitive value. So
if 5.00 is put in it's value shows as negetive value. It this possible?