SimonHughes
Active Member
- Joined
- Sep 16, 2009
- Messages
- 452
- Office Version
- 365
- Platform
- Windows
Hello,
I have the following script to ensure that all entries to the cell (D4) are shown as negative. I now want to have cell D8 show as negative but do not know how to add this to the script. I am sure it's easy when you know how so will appreciate your help. Many thanks
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("D4:D4"))
If Not (isect Is Nothing) Then
If Target.Value > 0 Then Target.Value = 0 - Target.Value
End If
End Sub
I have the following script to ensure that all entries to the cell (D4) are shown as negative. I now want to have cell D8 show as negative but do not know how to add this to the script. I am sure it's easy when you know how so will appreciate your help. Many thanks
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("D4:D4"))
If Not (isect Is Nothing) Then
If Target.Value > 0 Then Target.Value = 0 - Target.Value
End If
End Sub