That is a pseudo code, not actual code.
The macro recorder can help you.


"Gerard Sanchez" wrote in message
...
Hi KC

Just tested the code as shown and I got a syntax error?

Sub PrintActivePages()

For i = 65 To 1261 Step 52
If Range("F" & i) < 0 Then
set print range to rows (i, i+51) <--------syntax error here
PrintOut
End If
Next i

End Sub



"KC" wrote in message
...
Maybe

for i=65 to 1261 step 52
if range("F" & i)<0 then
set print range to rows (i, i+51)
printout
end if
next i

"Gerard Sanchez" wrote in message
...
Hi,

Each worksheet has 25 pages in it.
Some have values some don't.

I was wondering if anybody cen help me with a Module Level Macro
that lets me print pages provided a cell on that page is not equal to
zero (0)

Here it is:

Print page two if F65 < 0
Print page three if F117 < 0
Print page four if F169 < 0
Print page five if F221 < 0

and on . . . until page 25 if cell F1261 < 0

(pattern is every 52 cells beginning with F65 and ending with F1261)

Anybody??