VBA skal skjule eller vise øverste 11 linjer

Hejsa,

Jeg har en kode der enten skjuler eller viser de øverste 11 linjer.
Men det er lidt ærgerligt at hver gang jeg bruger dem, så hopper jeg op til toppen af mit ark. Så er der langt at scrolle ned til fx linje 500 bagefter.
Findes der en løsning på dette?

Jeg har indspillet denne kode:

Sub Vis_Top()
'
' Vis_Top Makro

    ActiveSheet.Unprotect
    Rows("1:11").Select
    Range("E1").Activate
    Selection.EntireRow.Hidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True
   
End Sub



Sub Skjul_Top()
'
' Skjul_Top Makro

    ActiveSheet.Unprotect
    Rows("1:11").Select
    Range("E1").Activate
    Selection.EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True
End Sub