I've put this together, however I'm getting a runtime error 1004.
Anything I'm missing?

For i = 2 To 233 Step 3
For n = 3 To 15 Step 1
Cells(236, n).Formula = sSum = sSum +
Application.Sum(Range(n & i))
Cells(236, n).NumberFormat = "$#,##0_);[Red]($#,##0)"
Next
Next


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