Pedro,

I am not sure I completely understood your question, but maybe this is what
you are looking for:

With ActiveSheet.AutoFilter.Range
If .Columns(1).Cells.SpecialCells(xlCellTypeVisible). Count = 1 Then
MsgBox "no visible cells"
Else
.Cells.SpecialCells(xlCellTypeVisible).Select
End If
End With

Regards,
KL

"Pedro" wrote in message
...
WHat change do I have to do to the code in order for it to select each row
visible til the end of the shown rows?
thanks
Pedro

"Dave Peterson" wrote:

This worked ok for me:

Option Explicit

Sub Tester03()
Dim rng As Range

With ActiveSheet.AutoFilter.Range
If .Columns(1).Cells.SpecialCells(xlCellTypeVisible). Count = 1
Then
MsgBox "no visible cells"
Else
.Resize(.Rows.Count - 1, 1).Offset(1, 0) _
.Cells.SpecialCells(xlCellTypeVisible).Cells(1).Se lect
End If
End With
End Sub


slikity wrote:

After filtering in VBA, how do you make the first
filtered cell active?

--

Dave Peterson