selecteer eerste zichtbare rij bovenaan na scrollen

[littlepete]

hallo allemaal

eerst nog maar eens als beginneling mijn dank uiten naar iedereen die tot nu al geholpen heeft !!!

er blijft toch één bizar feitje over :
mijn adressenlijst toont de gefilterde lijst van geboortes, huwelijk, overlijdens, gebeurtenissen, scheidingen en hertrouwen van de lopende maand,
netjes chronologisch met bovenaan als eerst zichtbare het eerstvolgende event vanaf vandaag... allemaal perfect !
maar: als ik kijk naar de celverwijzing toont deze niét de eerst zichtbare, maar een verborgen cel helemaal bovenaan...

mijn (lange) macro doet eerst het aflopen van alle data;
daarna sorteert hij alles;
daarna scrollt hij naar de eerstvolgende event: dit is de vba :

Sub scrolltoday()
    Dim rng As Range
    Dim c As Range
    Dim firstrow As Long
    Dim lastrow As Long
    Dim foundrow As Long
    Dim searchdate As String
    firstrow = 5 'startrow for search - first cell under title
    searchdate = Format(Date, "mmdd") & "0"
    lastrow = Range("cd" & Rows.Count).End(xlUp).Row
    Set rng = Range("cd" & firstrow & ":cd" & lastrow)
    foundrow = 0
    For Each c In rng
        If c.Value > searchdate And foundrow = 0 Then foundrow = c.Row
    Next
    If foundrow > 0 Then ActiveWindow.ScrollRow = rng(foundrow + 1 - firstrow).Row
End Sub

daarna moet hij 'tooneerstecel' uitvoeren. maar doet dat niet.
als ik deze maneel selecteer in de macrolijst wordt die echter wél perfect uitgevoerd. de vba :

einde:
Application.ScreenUpdating = True
If Keuze = 9 Then
    scrolltoday
    tooneerstecel
Else
    tooneersterij
End If

(de macro 'tooneersterij' moet werken als ik de maand zelf heb ingevuld en niet kies voor de lopende maand, die werkt goed)

de macro 'tooneerstecel' ziet er zo uit :

Sub tooneerstecel() ' ----------------------------------------------------------------------------------- selecteer eerste zichtbare rij na filter en scroll
    ActiveWindow.VisibleRange.Cells(1, 2).Select
End Sub

waar kan de fout zitten?
ben benieuwd en alvast bedankt voor de hulp !!!