verberg en toon rijen met "exit" beginnend

[Ropw]

Beste genieen,
De volgende werkbare code verzorgt het verbergen van rijen waarin exit voorkomt aan het begin van de regel dmv een macroknop.
Is dit aan te passen, zodat de rijen met exit weer getoond worden als je weer op de knop drukt?

Sub EXITVERBERGEN()
'
' EXITVERBERGEN Macro
'
' Sneltoets: Ctrl+Shift+E
'
    Dim myPassword As String
    Dim cell As Range
    
    myPassword = ""
    Application.ScreenUpdating = False

'   Unprotect sheet
    ActiveSheet.Unprotect Password:=myPassword
    
'   Loop through cells
    For Each cell In Range("A6:A500")
        Rows(cell.Row).Hidden = (cell = "exit")
    Next cell
 Application.ScreenUpdating = True
'   Protect sheet again
    ActiveSheet.Protect Password:=myPassword

End Sub

 

[HSV]

Die code staat in je vorige zelfde vraag.