Change ranges to suit:

Sub a()
If Application.And(Range("a1") < 0, Range("b1") < 0) Or
Application.And(Range("a1") 0, Range("b1") 0) Then
MsgBox "OK"
End If
End Sub

HTH

"Benoit" wrote:

Hi,
I have got the following procedure that checks the whether the cells in
LSRatio are filled before making the calculation. I would like to change this
so that I check that ShortPrice AND LongPrice are different from zero and of
the same sign before making the calculation. How do I do this?
i = 0
For Each cell In Range("LSRatio")
i = i + 1
If Not IsEmpty(cell) Then
Range("ShortCumReturn")(i).Value = (Range("ShortPrice")(i).Value /
Range("LongPrice").Cells(1).Value) - 1
Else
Exit For
End If
Next
Thanks!