Not sure why you want to move to that first visible cell, but here's an example
to find the first visible cell in the first column of the autofilter range (not
counting the header row).

Option Explicit
Sub testme01()
Dim rngF As Range
With ActiveSheet.AutoFilter.Range.Columns(1)
Set rngF = .Resize(.Rows.Count - 1).Offset(1, 0) _
.Cells.SpecialCells(xlCellTypeVisible)
End With
MsgBox rngF.Cells(1).Address
End Sub

Tempy wrote:

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!

--

Dave Peterson