That's is not so easy mate. You might be best to pick up activecell like so

sFormula = "INT(((" & ActiveCell.Address(False, False) & _
"-1461)-SUM(MOD(DATE(YEAR(" & ActiveCell.Address(False, False) &
_
"-MOD(" & ActiveCell.Address(False, False) & _
",7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)"
myVal = ActiveSheet.Evaluate(sFormula)

B TW, what is it a formula for? I get 25 if the date is TODAY().


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"VBA Noob" wrote in
message ...

Thanks Bob

I will try to amend your formula to change C2 to active Column and Row
2


VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile:
http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=554893