VBA: Hvis celle = 0, så skjul næste 5 linier.

Hej Eksperter

Jeg har brug for lidt input i forhold til lidt VBA-kode. Makroen skal gennemsøge en range (eks. C20:C80). Hvis den indenfor rangen finder værdien 0 i en af linierne, så skal den skjule de efterfølgende fem linier.

Jeg har tidligere benyttet denne makro, men som kun skjuler den aktuelle linie:

Sub skjullinier()
Dim r
For Each r In Range("C1:C80")
If r = "0" Then
    r.EntireRow.Hidden = True
End If
Next
End Sub

Noget der har et godt råd, som kan sparke mig i den rigtige retning?