Add a togglebutton to your sheet, and use the code in the Click event
![]()
Private Sub ToggleButton1_Click() Dim lrow As Long Dim r As Range lrow = Cells(Rows.Count, 1).End(xlUp).Row Set r = Range("A3:A" & lrow) Application.ScreenUpdating = False For Each cell In r If cell.Value = "" Then cell.EntireRow.Hidden = Sheet1.ToggleButton1.Value End If Next cell Application.ScreenUpdating = True End Sub
Bookmarks