Sub MoveDown2()
Dim cnt as Long, i as Long
cnt = 0
i = activecell.row
do while cnt < 2
i = i + 1
if rows(i).Hidden = False then cnt = cnt + 1
Loop
cells(i,activecell.column).Select
End Sub
--
Regards,
Tom Ogilvy


"ajvasel" wrote:

In my program, when I enable AutoFilter, I want to select cell E4 and move
down 2 cells and enter text.

I tried using
ActiveCell.Offset(2, 0).Activate

but that just places the cell in E6. I want to be able to space down 2
cellls below E4 no matter what the row number is. How can I do this? Thx