Microsoft Office Forums - View Single Post - Hide rows in multiple columns based on zero values

charlesdh · 06-13-2015, 05:26 PM

Hhi,

With this code you should not get a "Mismatch". You may need to change the columns that you are looking at.

Code:

Sub Hide_rows()
Dim LastRow As Long
Dim Rng As Range
LastRow = Range("A65536").End(xlUp).Row '
Set Rng = Range("A2:P" & LastRow) 'change "P" to your last coulum
Application.ScreenUpdating = False
    For Each cell In Rng
        If cell.Value = "0" Then
            cell.EntireRow.Hidden = True
        End If
    Next cell
Application.ScreenUpdating = True
End Sub