try this, but why do you need to select?

Sub gotofirstcellinfilteredrng()
Range("b2:b22").SpecialCells(xlVisible).Cells(1, 1).Select
End Sub

--
Don Guillett
SalesAid Software

"John" wrote in message
...
Hi,

Using Cells.SpecialCells(xlLastCell).Select will take the Cellpointer to
the
last cell.
How do i get XlFirstCell please?

Thanks

John