1: 2: 3: 4: 5: 6:
Sub unhideRows() Dim MaxRowActive As Long Rows("6:65536").EntireRow.Hidden = False MaxRowActive = Range("A" & Cells.Rows.Count).End(xlUp).Row Range("C6:c" & MaxRowActive & "").Clear End Sub