Select visible cell

[kgkev]

i select a cell run a macro that changed the value of a cell and then reapply my autofilter.

Sub Chase_month()
    Cells(ActiveCell.Row, "L").Value = Date + 28
    ActiveSheet.AutoFilter.ApplyFilter
End Sub

However this often leaves the selected cell hidden.

How do I select the next visible cell down?

 

[Andrew Poulsom]

Try:

Sub Chase_month()
    Cells(ActiveCell.Row, "L").Value = Date + 28
    ActiveSheet.AutoFilter.ApplyFilter
    Do While ActiveCell.EntireRow.Hidden
        ActiveCell.Offset(1).Select
    Loop
End Sub