Thanks! I'll have to read up on the Subtotal arguments. The solution works
great!
--
Anthony White



" wrote:

After autofiler, use

ret = Application.WorksheetFunction.Subtotal(3, Range("A:A"))
MsgBox (ret)