So i updated my code, two macros one hides rows based on a value, ne shows all rows
Sub shows_row()
Call show_rows
End Sub
Private Sub show_rows()
Dim i&
i = 9
Do While ThisWorkbook.Sheets("AE").Cells(i, 1).Value <> ""
ThisWorkbook.Worksheets(Sheets("AE").Rows(i)).EntireRow.Hidden = False
i = i + 1
Loop
End Sub
Sub hide_row()
Call hide_rows
End Sub
Private Sub hide_rows()
Dim i&
i = 9
Do While ThisWorkbook.Sheets("AE").Cells(i, 1).Value = "DELETE"
ThisWorkbook.Worksheets(Sheets("AE").Rows(i)).EntireRow.Hidden = True
i = i + 1
Loop
End Sub
Bookmarks