In your code, the compiler doesn't know what "cell" is.

Dim rng as Range

For a = 1 To 14
Range("hide").Value = a
Set rng = Range("hidestart").Offset(a - 1, 0)
If rng.Value = 0 Then
rng.EntireRow.Hidden = True
End If
Next a


--
George Nicholson

Remove 'Junk' from return address.


"trickdos " wrote in message
...
Thanks Frank, I caught that, but I am getting an error on the row: If
cell.Value = 0 Then

The error is: Object Required.

any ideas? Thanks again....


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