Hi

I have noticed the macro below is slow, is there any changes I can make to
speed it up.

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False
Rows.Hidden = False
Set rng = Range("a9:a100")
r1 = rng.Find(".", , xlValues).Row
r2 = rng.Find("Funding Council Grants").Row - 3
Rows(r1 & ":" & r2).Hidden = True
Cells(1, 1).Select
Application.ScreenUpdating = True

End Sub