Modify to suit

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Newbeetle" wrote in message
...
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.