Sub myhide() For i = 1 To 5 If Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) = 0 Then Rows(i).Hidden = True ElseIf Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) 0 Then Rows(i).Hidden = False End If Next End Sub