Does something like this not work?

Dim aWS As Worksheet
Dim lRow as long

Set aWS = ActiveSheet

Set myrange = aWS.Rows(aWS.Rows.Count)
lrow = myrange.End(xlUp).Row
Debug.Print lrow


"Ixtreme" wrote:

Hi,

How can I quickly determine the last row on my sheet while autofilter
is still active?