Snasui Excel Forum

Code: Select all

 Sheets("sheet1").Select
   On Error Resume Next
        With Worksheets("Sheet1")
            .Columns(1).Cells.EntireRow.Hidden = False
            .Range(.Range("C5").End(xlDown), .Range("C" & .Rows.Count) _
            .End(xlUp)).SpecialCells(xlCellTypeBlanks) _
            .EntireRow.Hidden = True
        End With

End Sub

Code: Select all

Sub hide_col()


Sheets("sheet1").Select
   On Error Resume Next
        With Worksheets("sheet1")
            .Columns(1).Cells.EntireRow.Hidden = False
            .Range("C5:C18").SpecialCells(xlCellTypeBlanks) _
            .EntireRow.Hidden = True
        End With

End Sub