write a formula to a range

Hi;
My range is Column R from row 2 to lastrow - where last row is approx row
5000.

My Formula is:
=IF(LEFT(M:M,1)="H",IF(LEFT(O:O,1)="I",1,3),IF(LEFT(O:O,1)="I",2,4))

I would like to write the formula to the range. How is this done.

Thank you,
--
Martin

Range("R2:R" & LastRow).Formula =
"=IF(LEFT(M:M,1)=""H"",IF(LEFT(O:O,1)=""I"",1,3),IF(LEFT(O:O,1)=""I"",2,4))"


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Martin" <[email protected]> wrote in message
news:[email protected]...
> Hi;
> My range is Column R from row 2 to lastrow - where last row is approx row
> 5000.
>
> My Formula is:
> =IF(LEFT(M:M,1)="H",IF(LEFT(O:O,1)="I",1,3),IF(LEFT(O:O,1)="I",2,4))
>
> I would like to write the formula to the range. How is this done.
>
> Thank you,
> --
> Martin