Offset to next visible cell in filtered data

Hi,

I wanna check the value of every visible cell in an filtered data. To move along the filtered data I was using the below formula

Do

Activecell.Offset(1,0).Select
Loop While Activecell.EntireRow.Hidden = True

This works fine, but prob is my sheet has 6000+ value, due to which the macro files hang. Is there a shorter way of doing this and achive the same result.

Thanx for any help.