Macro Oculta Filas

Buen dia estimados,

tengo una Macro que me oculta las filas de una hoja que tiene el nombre NO, el problema es que oculta fila por fila y eso hace que demore el proceso que tengo ya que son varios NO y varias hojas, si hay alguna otra forma para ocultar las filas diferente y mas rápida de la que tengo seria de mucha ayuda.

La macro que actualmente utilizo para ocultar las gilas con NO es:

For tr = 19 To 235
If (Range("d" & tr) = "NO") Then
Rows(tr).EntireRow.Hidden = True
End If
Next

Gracias de Antemano-.