Create a scrolling macro

[FryGirl]

On my spreadsheet, I have cell C23542 highlighted as the activecell. I'm going to be reading down to row C23635 (or could be another range within column C). As I'm reading the text, I would like the screen to scroll until it hits the last cell, but with this code, the activecell never changes during the scroll, so I don't know how to exit as I reach the last cell. How can I achieve this scrolling?

Sub CreateScrollDown()

    Dim lastrow As Long: lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Dim StopPoint As Long: StopPoint = Range("MyEnd")
    
    While Intersect(Rows(lastrow), ActiveWindow.VisibleRange) Is Nothing
        Application.Wait (Now + TimeValue("0:00:01"))
        ActiveWindow.SmallScroll down:=Round(ActiveWindow.VisibleRange.Rows.Count / 5, 0)
    Wend
    Application.Wait (Now + TimeValue("0:00:03"))
    ActiveWindow.ScrollRow = 1
        
End Sub

 

[GWteB]

How about

Sub CreateScrollDown()

    Dim LastRow As Long, CurrRow As Long, r As Range
    
    LastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    With ActiveWindow
        Do
            Set r = .VisibleRange
            CurrRow = r.Rows(r.Rows.Count).Row
            Application.Wait (Now + TimeValue("0:00:01"))
            .SmallScroll down:=Round(r.Rows.Count / 5, 0)
            
        Loop While CurrRow < LastRow
        
        Application.Wait (Now + TimeValue("0:00:03"))
        .ScrollRow = 1
    End With
End Sub

 

[FryGirl]

Yes, that is perfect and will work for my needs. Thank you.

 

[GWteB]

You are welcome and thanks for letting me know.