Return value from the top of an auto filer list.

[Newbeetle]

Hi, What I would like to achive is to be able, once an auto filter has been
applied, to return the value in the first row, to another cell.

So if I have a header row say F17 with an auto filter, and data in
subsequent cells F18 through to F100, if when I use the auto filter can I
retrn the value (Will be text) in the first filtered row, ie this could be a
row from 18 through to a 100.

Regards

Newbeetle.

 

[Don Guillett]

Modify to suit

Sub firstrowdata()
lr = Cells(Rows.Count, "a").End(xlUp).Row
MsgBox Range("a7:z" & lr). _
SpecialCells(xlCellTypeVisible).Range("a1")
End Sub