Excel Newcomer
New Member
I have created a code to hide rows if the cell is blank. I am also trying to incorporate the code to "select" the cell that was just unhidden. This code works, but is extremely slow. Is there anything better I could be doing?
Thank you
Code:
Dim r As Range, cel As Range
Set r = Range("H113:H164")
Application.ScreenUpdating = False
For Each cel In r
'These rows have text but need to be hidden until getting to that row ... I did not know how to do this which is why it is here at the moment
Rows("125:149").EntireRow.Hidden = True
'
If Len(cel.Text) = 0 Then
cel.EntireRow.Hidden = True
Else
cel.EntireRow.Hidden = False
cel.Select
End If
Next cel
Application.ScreenUpdating = True
Thank you