Something like this ... ?


Code
-------------------
If ActiveSheet.Range("a1").Value < 0 Then
Range("C4").FormulaR1C1 = _
Else
Range("C4").FormulaR1C1 = _
End If

-------------------


--
Message posted from http://www.ExcelForum.com