I have a code that hides entire rows if cells in range A23:A72 are blank, but it doesn't seem very efficient speed wise since it goes cell by cell. Is there a faster way to write this code?

Sub HideRows()
   Dim Rng As Range, Cl As Range
   With Sheet10
      For Each Cl In .Range("A23:A72")
         Cl.EntireRow.Hidden = Cl.Value = ""
        Next Cl
    End With
End Sub
Thank you for the assistance!