How to freeze panes on mouse scroll

[Waimea]

Hi,

I am trying to hide some rows and then freeze panes on mouse scroll.

1. User scrolls down
2. Hide rows 1-5
3. Freeze new rows 1-5

Is this possible?

Sub FreezeRow()
   ActiveWindow.FreezePanes = False
   Rows("1:5").Select
   ActiveWindow.FreezePanes = True
End Sub

 

[Yongle]

Is this what you want

Sub FreezeRow()
    With ActiveWindow
        .FreezePanes = False
        .VisibleRange.Resize(5).Offset(5).Rows.Select
        .VisibleRange.Resize(5).EntireRow.Hidden = True
        .FreezePanes = True
    End With
End Sub

 

[Waimea]

Hi Yongle,

thank you for your reply! That is exactly what I want!