Hi Les
Provided headers starting in A1
Try
Cells(Range("A1").CurrentRegion.Offset(1,0).Specia lCells(xlCellTypeVisible).
Row,1).Select

HTH
Cordially
Pascal

"Tempy" a écrit dans le message de
...
Could somebody please help me with the above, i am filtering with code
but am not sure of the code to move to the first displayed cell.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!