Hi Reddance,

Try instead:

Sub Tester()
Dim rng As Range
Dim i As Long

If LCase(Sheets("Ctrl").Range("A1").Value) _
< "yes" Then
Exit Sub
End If

With Sheets("ToPrint")
For i = 5 To .UsedRange.Rows.Count Step 2
If Not rng Is Nothing Then
Set rng = Union(rng, .Cells(i, "A"))
Else
Set rng = .Cells(i, "A")
End If
Next i
End With

If Not rng Is Nothing Then
rng.EntireRow.Hidden = True
End If

End Sub

---
Regards,
Norman



"Norman Jones" wrote in message news:...
Hi Reddiance,

Try:

Sub Tester()
Dim rng As Range
Dim i As Long

If LCase(Sheets("Ctrl").Range("A1").Value) _
< "yes" Then
Exit Sub
End If

For i = 5 To Sheets("ToPrint").UsedRange.Rows.Count Step 2

If Not rng Is Nothing Then
Set rng = Union(rng, Cells(i, "A"))
Else
Set rng = Cells(i, "A")
End If
Next i

If Not rng Is Nothing Then
rng.EntireRow.Hidden = True
End If

End Sub

---
Regards,
Norman