Hi,

How to modify the code down below, to prinout the numbers at one sheet

Not as now on several sheets, as the conditions are tested down to ro
206.

Sub HideRows()
Dim i As Long
For i = 5 To 206
Rows(i).EntireRow.Hidden = Range("BQ" & i).Value = 0
Next i
Range("A1").Select
ActiveSheet.PrintOut
End Su

--
Message posted from http://www.ExcelForum.com