[color=darkblue]If[/color] InStr(1, Range("P13"), "Blue", 1) [color=darkblue]Then[/color]
[color=darkblue]If[/color] InStr(1, Range("M13"), "Red", 1) [color=darkblue]Then[/color]
x = Range("S13").Value * -1
[color=darkblue]Else[/color]
x = Range("S13") * Range("E13") * -1
[color=darkblue]End[/color] [color=darkblue]If[/color]
End If