hiding rows which contain checkboxes but checkboxes don't hide as they should

Hi Gti182,

I have amended your code in the Module below:

Sub Hide_rows()
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
'Application.DisplayAlerts = False

    Dim cell As Range
    For Each cell In Range("$E$19:$E$80")
        'If cell.Value <> "*" Then
           cell.EntireRow.Hidden = True
       ' End If
    Next
    
    Dim cb As CheckBox
    For Each cb In ActiveSheet.CheckBoxes
        cb.Visible = cb.Value = 0
    Next cb
       
'Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic
'Application.ScreenUpdating = True

End Sub

Sub Unhide_rows()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

    Rows("19:80").Hidden = False
    
    ActiveSheet.CheckBoxes.Visible = True
    
Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic
'Application.ScreenUpdating = True

End Sub

Please see if the attached Workbook works for you now.

Regards.