That's why you can Protect the worksheet.

NickHK

"redlion" wrote in
message ...

Because I would like it Macro driven so other uses can not stuff up the
formulars, but I Got Thanks Mate

Sub Ratio()
Sheets("data").Select
Range("E21").Value = Evaluate("=SUM((D2+E2))/2*(365)/J2 ")
End Sub


--
redlion
------------------------------------------------------------------------
redlion's Profile:
http://www.excelforum.com/member.php...o&userid=36140
View this thread: http://www.excelforum.com/showthread...hreadid=560934