How do I extract the first entry in a filtered list?

The archives do not look kindly on no text in the message. Put in subject
line and ask a question.

Try this where f2 is the first cell after the header text
Sub firstinfiltered()
MsgBox Range("f2:f21").SpecialCells(xlCellTypeVisible).Ce lls(1)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Djoy" wrote in message
...