Excel Forum

Code: Select all

Sub HideRows()
    Dim ws As Worksheet
    Dim i As Long
    Set ws = ThisWorkbook.ActiveSheet
    
    For i = 1 To 254
        If ws.Cells(i, "H").Value = "0" And ws.Cells(i, "J").Value = "0" Then
            ws.Rows(i).EntireRow.Hidden = True
        End If
    Next i
End Sub

Code: Select all

Sub HideRows()
    Application.Calculation = xlManual
    'Code
    Application.Calculation = xlAutomatic
End Sub