Total (SUM) 1 column of a table VBA

[CalRich1023]

Hello again,

I have a Table of Contents sheet that will change size on a constant basis. The VBA is written to format it into a table, for ease of filtering the data. I'm wondering if there is a way to add the values of a single column (specifically column "D") and have it show the total at the bottom of the results? I can't seem to find an answer for this anywhere.

Thanks!

 

[Fluff]

If you only have one table on that sheet try

   With Sheets("Table of contents").ListObjects(1)
      .ShowTotals = True
      .ListColumns(4).TotalsCalculation = xlTotalsCalculationSum
   End With

 

[CalRich1023]

If you only have one table on that sheet try

   With Sheets("Table of contents").ListObjects(1)
      .ShowTotals = True
      .ListColumns(4).TotalsCalculation = xlTotalsCalculationSum
   End With

Works Like a Charm! I altered it just a touch because for some reason the filters wouldn't work the way you gave it to me.
You seem to be answering all of my questions, HAHA, maybe I should just start asking you directly!
Thanks again for your help!!

 

[Fluff]

You're welcome & thanks for the feedback.