Sub sumevery42ndcell()
lr = Cells(Rows.Count, "e").End(xlUp).Row
For i = 1 To lr Step 42 'test with smaller number
mysum = mysum + Cells(i, "e")
Next i
MsgBox mysum
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"James D" wrote in message
...
Hello!

Is there a way to enter a summing formula so that it looks at every 42nd
cell in a range of cell e6 thru e1602 and sums each cell to a grand total?

I could do =sum(e6+e48+e90............all the way to e1602, but with the
size of this sheet that would take me hours.....or a whole day. I don't
have
that much time, and there are over 120 different columns of data I'll have
to
do this for......

Thanks!


--
Thank you all for your help!