Try this loop.
Sub FindNextVisible()

Dim cnt As Long
Dim Filtered As Boolean

Filtered = False
cnt = 1
Do
Filtered = Rows(Range("A1").Offset(cnt, 0).Row).Hidden
cnt = cnt + 1
Loop While Filtered
MsgBox "A" & cnt

End Sub

Charles Chickering

Henrich wrote:
Hi all, i want the select with code the 2nd cell from the top in the column A
which has filtered data so i don't know which line it is (it could be any
depending on the filter settings) and i want to know the position of that
cell when i hit the commandbutton on that sheet. Thanks for help.

PS: Application.sendkeys"^{home}" didn't help

Henrich