Dim rng as Range, cell as Range
set rng = intersect(Range("E20,E30,E40,E50,E60,E70,E80,E90") . _
EntireRow,Columns(5).Resize(,10))

for each cell in rng
cell.FormulaArray = "some formula"
Next

or is it a multicell formula array

for each cell in Range("E20,E30,E40,E50,E60,E70,E80,E90")
cell.Resize(1,10).FormulaArray = "some formula"
Next

--
Regards,
Tom Ogilvy


jay dean wrote in message
...


I need a macro that will apply an array formula,say
= {SUM(if(....))}
across the Range E20:N20, and repeat the process after every 10 rows
all the way down to the end of the sheet.

Any assistance would be appreciated. Thanks!

Jay Dean.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!