For Each Next Loop problems

[vinny2984]

can anyone tell me where thus code is wrong.
I'm trying to enter the formula into each of the cells in range admin.
thanks

[Kenneth Hobs]

Oops, what code?

[vinny2984]

good point,

For incr = 1 To 49 Step 4
For Each cell In admin
cell.Formula = "=SUMPRODUCT(N(INDIRECT(" '"&StationMembers&"'!cell.address")))"
cell.HorizontalAlignment = xlCenter
cell.VerticalAlignment = xlCenter
Next cell
Next incr

[Bob Phillips]

For incr = 1 To 49 Step 4
For Each cell In admin
cell.Formula = "=SUMPRODUCT(N(INDIRECT('StationMembers'!" & cell.Address & ")))"
cell.HorizontalAlignment = xlCenter
cell.VerticalAlignment = xlCenter
Next cell
Next incr