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).Cells(1)
End Sub