Skjul og vis rækker baseret på værdi i celler

Hej Eksperter,

Kan I mon hjælpe mig?

Jeg har følgende kode, den skal hjælpe med at skjule og vise rækker, hvor et bestemt ord står i forskellige celler.

Jeg har indsat nedenstående kode:


Sub HideRows()

    Dim rCheck As Range
    Dim rHide As Range
    Dim rCheckCell As Range

    Set rCheck = ActiveWorkbook.Worksheets("Beregner").Range("A1:AA600")
    rCheck.EntireRow.Hidden = False

    For Each rCheckCell In rCheck.Cells
        If InStr(1, rCheckCell, "Tillæg", vbTextCompare) > 0 Then
            If Not rHide Is Nothing Then Set rHide = Union(rHide, rCheckCell) Else Set rHide = rCheckCell
        End If
    Next rCheckCell

    If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True

End Sub
___________________________________________________________

Sub UnhideRows()

    Dim rCheck As Range
    Dim rHide As Range
    Dim rCheckCell As Range

    Set rCheck = ActiveWorkbook.Worksheets("Beregner").Range("A1:AA600")
    rCheck.EntireRow.Hidden = False

    For Each rCheckCell In rCheck.Cells
        If InStr(1, rCheckCell, "Tillæg", vbTextCompare) > 0 Then
            If Not rHide Is Nothing Then Set rHide = Union(rHide, rCheckCell) Else Set rHide = rCheckCell
        End If
    Next rCheckCell

    If Not rHide Is Nothing Then rHide.EntireRow.Hidden = False

End Sub

Min udfordring er, at når den skjuler rækker, så skjuler den de der står tillæg i, men viser alle de der var skjult i forvejen. Og den kode der skal vise de række der står tillæg i (som er skjult), der viser den også alle (også hvis der er andre skjulte, hvor der ikke står tillæg i).

Er der nogen der har en god idé til hvad jeg kan ændre?

God dag.