Erik,

Why would you want to replace worksheet formulae with VBA? It's more work,
less efficient, ....

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Erik" wrote in message
...
I have a couple of formulas that I would like to replace with a sub. This
is beyond my capabilities however. Any suggestions are appreciated. The
formulas follow:


=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23=0),"Met",IF((B22-B23<0),"
Over","Under"))))


=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23<0),-(B22-B23),IF((B22-B23
=0),"",B22-B23))))