Listobject total problem

[horvathg]

Normally when you add a total row to a listobject manually, they will accept the filter on the table.
When I add a total row by VBA:

With ActiveSheet.ListObjects("Table1")
        .ShowTotals = True
        .ListColumns("Qty").TotalsCalculation = xlTotalsCalculationSum
        .ListColumns("Amount").TotalsCalculation  = xlTotalsCalculationSum
End With

The totals allways show grandtotal, not accepting the filter.
The formula generated by code above in the total row is like this:

=SUBTOTAL(109;[Qty])

Any advise ?

 

[horvathg]

I found the solution. After setting the total calculation, just turn on, turn off and turn on again the total row.
Using Excel 2010

.ShowTotals = True
.ShowTotals = False
.ShowTotals = True

 

[SirJB7]

Hi, horvathg!
Glad you could solved it by yourself. Thanks for your feedback and for sharing your solution with the community. And welcome back whenever needed or wanted.
Regards!