On Jun 8, 4:36 pm, Dave Peterson wrote:
I'm not sure I'd rely on that statusbar to show anything. If I have it set to
Count and you wanted Average, Sum, standard deviation, ..., then it won't do
what you want.

If you want to show the subtotals from the autofilter, maybe using

With Worksheets("sheet1")
With .AutoFilter.Range
MsgBox Application.Subtotal(9, .Columns(3))
End With
End With

Did changing the code to use Format() instead of clng() help displaying the
values?





ashish128 wrote:

On Jun 8, 12:03 am, Dave Peterson wrote:
Maybe it's time to try the Format() suggestion from yesterday.

Be aware that even though you show a message box between the autofilters, the
user won't be able to pause to make any changes. The code will continue when
they click the ok button.

ashish128 wrote:

Dear Dave,

I dont want user to do anything. I am applying msgbox just to pause
the macro so that the user can note the autosum displayed on status
bar and once he clicks "OK" the code will continue. But the problem
stated in my post are not expected in this routine.

Any guidance, I just want to see two autofilter results one by one
using macro, I need to pause the macro so that the user can note the
autosum displayed in statusbar for the first result and then the macro
can proceed.

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Thanks Dave,

The format() function worked nicely and so did your suggestion to
using subtotal in msgbox.

I am thankful to you for this help.