Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, [J5:N6500]) Is Nothing Then
Target = IIf(Cells(Target.Row, "F") = "Risk", -Target, Abs(Target))
End If
[B]If Not Intersect(Target, [F5:F6500]) Is Nothing Then
For col = 4 To 8
If Target.Offset(, col) <> "" Then
Target.Offset(, col) = IIf(Target = "Risk", -Target.Offset(, col), Abs(Target.Offset(, col)))
End If
Next
End If[/B]
Application.EnableEvents = True
End Sub