Formatting non-contiguous cells in VBA

[SimonHughes]

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

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("D4,D8")) Is Nothing Then
      If Target.Value > 0 Then Target.Value = Target.Value * -1
   End If
End Sub

 

[SimonHughes]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("D4,D8")) Is Nothing Then
      If Target.Value > 0 Then Target.Value = Target.Value * -1
   End If
End Sub

Thanks Fluff, that does it perfectly, appreciated

 

[Fluff]

You're welcome & thanks for the feedback.