VBA to move the vba scroll bar up and down the page as rows are hidden

[tonywatsonhelp]

Hi everyone,
not sure if this can be done but what I need is this.

I have a sheet with 800 rows
I have a scroll bar and I need to move it to the right position on the page.
so I need a macro that can count 100 rows from the top and move the scroll bar so the top of the bar is in row 100, except its not the actual 100th row it the 100th visable row
so for example if rows 99 to 199 are hidden then the 100th row is actually row 200.

hope that make sense, please help if you can

Tony

 

[footoo]

Sub Scroll_100()
Dim rng As Range, cel As Range, c%
Set rng = [A:A].SpecialCells(xlCellTypeVisible)
For Each cel In rng
    c = c + 1
    If c = 100 Then
        With ActiveWindow
            .ScrollColumn = 1
            .ScrollRow = cel.Row
        End With
        Exit For
    End If
Next
End Sub

 

[tonywatsonhelp]

Thank you footoo,
this is not quite what I was looking for but gave me the part I needed which was to find the 100th visible row.
Thank you so much problem now solved
Tony