This works(tested):Sub hide()Dim wsDim rwFor Each ws In ActiveWorkbook.SheetsFor Each rw In ws.UsedRange.RowsIf rw.Cells(3) = 0 And rw.Cells(5) = 0 _And rw.Cells(6) = 0 Then rw.Hidden = TrueNext rwNext wsEnd Sub