Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("G107")) Is Nothing Then
If IsNumeric(Target) Then
If Range("E3") <> 0 Then
Target = IIf(Target < 0, Target * -1, Target)
ElseIf Range("E8") <> 0 Then
Target = IIf(Target > 0, Target * -1, Target)
End If
End If
ElseIf Not Application.Intersect(Target, Range("G105")) Is Nothing Then
If IsNumeric(Target) Then
If Range("E6") <> 0 Then
Target = IIf(Range("E6") < 0, Abs(Target), Abs(Target) * -1)
End If
End If
End If
Application.EnableEvents = True
End Sub