Se top af ark ved start

Prøv at lege med:

    Range("B5").Select
    ActiveWindow.SmallScroll Down:=4

Så vil række 5 være øverst.

Positivt tal ruller op
Negativt tal ruller ned

Det virker!

Bare for at teste den satte jeg den ind i en lille Sub:

Sub Rul()
    Sheets("Kassebog").Select
    Range("B5").Select
    ActiveWindow.SmallScroll Down:=-4
End Sub

Det virkede fuldstændig som det skulle.

Så satte jeg den ind i bunden af den Sub der skifter måned sådan her.

    Sheets("Kassebog").Select
    Range("B5").Select
    ActiveWindow.SmallScroll Down:=-4
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Så virkede den ikke længere !

Så flyttede jeg Application..... linjerne op over Sheets.... osv sådan her. så virkede det!

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Sheets("Kassebog").Select
    Range("B5").Select
    ActiveWindow.SmallScroll Down:=-4

Gad nok vide hvordan det kan være?

Læg et svar store-morten.

Application.ScreenUpdating
Slår skærmopdatering til/fra

Derfor skal den slås til inden du Scroller.

Det må jeg prøve at huske, det bruges jo ret tit.
Tak store-morten.

Velbekomme.
Det er ikke nemt at huske det hele.
Og tak for point.