VBA: Show Specific Row on Top

[hrayani]

I am calling these macros to hide specific rows which is working fine. All i need is when a macro is triggered then the screen should
show Row 144 on top.

Sub bedsets()
'
' bedsets Macro
'


'
    ActiveWindow.SmallScroll Down:=-3
    Rows("147:199").Select
    Selection.EntireRow.Hidden = False
    Range("I149").Select
    ActiveWindow.SmallScroll Down:=39
    Rows("180:198").Select
    Selection.EntireRow.Hidden = True
    Range("B145").Select
End Sub
Sub jerseyfitted()
'
' jerseyfitted Macro
'


'
    ActiveWindow.SmallScroll Down:=9
    Rows("147:199").Select
    Selection.EntireRow.Hidden = False
    Range("K148:K149").Select
    ActiveWindow.SmallScroll Down:=3
    Rows("148:180").Select
    Selection.EntireRow.Hidden = True
    Range("B145").Select
End Sub
Sub both()
'
' both Macro
'


'
    ActiveWindow.SmallScroll Down:=6
    Rows("147:199").Select
    Selection.EntireRow.Hidden = False
    Range("B145").Select
End Sub

 

[Fluff]

Add this line to each macro

ActiveWindow.ScrollRow = 144

 

[hrayani]

Thanks Fluff

Problem Solved

 

[Fluff]

Glad to help & thanks for the feedback