Msgbox skal kun vises 1 gang

Hej

Jeg har oprettet følgende kode:

Private Sub Worksheet_Activate()
Dim r
For Each r In Range("f5:f63")
If r = "0" Then
    MsgBox "Der er fejl i høringsskemaet." & vbNewLine & "Klik på knappen VIS ALLE RÆKKER. Der er fejl i de lag, som er rødmarkerede. " & vbNewLine & "Kontakt Lars Sørensen for at få rettet skemaet.", vbOKOnly + vbInformation, "Værd at vide"
End If
Next
End Sub

Problemet er bare, at msgboxen gentager sig for hver nulværdi i f5:F63. Jeg er kun interesseret i, at msgboxen kommer frem 1 gang, uanset hvor mange nulværdier, der måtte være.

Jeg går ud fra, at jeg skal have erstattet Each i linjen: For Each r In Range("f5:f63"), men jeg ved ikke lige, hvad jeg så skal vælge.

Hilsen Lars