You can always use A1 addressing
Cell1Addr = cells(Activecell.Row - 1,ActiveCell.column).address
Cells2Addr = cells(activecell.Row,Activecell.column + 7).address
ActiveCell.Formula = "=round(" & Cell1Addr & "*" & Cell2Addr & ",2)"
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=151771
Microsoft Office Help