hide/unhide rows based on cell value

Hello,

I have the following situation:
- a workbook with several sheets.
- on one of the sheets, in colum "D" i get values form the other sheets.

I need to make it so that when rows have "-" on colum "D" (from row 10 to 1425) the whole row is hidden. If the value of the cell is changed (in the other sheets so it's no longer "-") it should unhide that row.

I have found something on google, it works just for the hide part (but it's very slow since I have to check and hide/unhide rows from 10 to 1425).

Sub Hide_Rows()
   
    Sheets("Justificare").Select
    Cells.Select
    Selection.EntireRow.Hidden = False
     
    Dim i As Integer
    For i = 10 To 1425
        If Range("D" & i).Value = "-" Then
            Rows(i & ":" & i).EntireRow.Hidden = True
        End If
    Next i
     
End Sub

Can anyone please help?