Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Not Target Is Nothing Then
If Target.Value <> "" Then
If IsNumeric(Target) Then
If Target > 0 Then
Application.EnableEvents = False
Target = Target * -1
Target.NumberFormat = "#,##0.00 $"
Application.EnableEvents = True
Else
Target.NumberFormat = "#,##0.00 $"
End If
End If
End If
End If
End If
End Sub