Subtotal VBA Not Working

[pastelrain]

Hi,
Does anyone know why the subtotal code below would only work with one column instead of all? It only sums the last (total) column. It's almost as if it doesn't recognize the other columns can be summed. They are all in the same format (General).

Any help is appreciated!


Set tbl = xlWS.ListObjects.Add(xlSrcRange, rng, , xlYes)
tbl.TableStyle = "TableStyleMedium2"
tbl.ShowTotals = True

 

[Ranman256]

Is this an Excel question in the Access forum?

 

[pastelrain]

No, this is in Access VBA. I am exporting a spreadsheet and formatting it. Do you need to see the whole code?