Hi,

add variable declaration at the first line:

Sub hide_rows2()
Dim i As Long
For i = 5 To 206
Rows(i).EntireRow.Hidden = Range("D" & i).Value = 0
Next i
End Sub

Jare

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