View Single Post
  #2   Report Post  
 
Posts: n/a
Default

After autofiler, use

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