Jak ukryć parę wierszy - VBA

Cześć

Jestem początkującym i mam problem w napisaniu makra który by mi chował parenaście wierszy.

W chwili obecnej mam napisane takie makro

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Cells(3, 4) = "Badanie wstępne" Then
Rows("42:47").Select
Selection.EntireRow.Hidden = True
Else
Rows("42:47").Select
Selection.EntireRow.Hidden = False
End If

End Sub

Chciałbym, aby oprócz wierszy 42:47, te makro chowało mi np. wiersze 56-76, 82-84, 91 itp.
Możecie mi podpowiedzieć jak miałbym napisać kod aby mi te makro tak zadziałało??

Z góry wielkie dzięki za podpowiedzi
Pozdrawiam

0 1

Mogłoby to być coś takiego:

Nie ma sensu, żeby ta procedura uruchamiała się przy zmianie którejkolwiek komórki, bo tylko zmiana w D3 może wywołać jakiś skutek.
Zakładam, że zmiany w komórce D3 będą indywidualne, a nie w kilku komórkach naraz.

0