Autofilter: jump from visible row to visible row by command button

Hi all,
I got a worksheet (4000 rows) filtered by autofilter. Using command
buttons in an userform I want to navigate up or down within the visible
lines of the worksheet, skipping the hidden ones. Using a code to
navigate downwards like:

JMP:
IF Rows(HYPLNKROW).Hidden = False Then
Cells(HYPLNKROW, 9).Select
ELSE
HYPLNKROW = HYPLNKROW + 1: GoTo JMP
END IF

will work quite slowly. Is it possible to navigate through the visible
lines only? (E.g. when I navigate through the same worksheet manually
using the up or down arrows it is of course very quick because EXCEL
kind of recognises the visible lines...)

Any chance to accelerate the procedure WITHOUT changing the worksheet??

Thanks in advance and best regards Richard