Adding all the fields of table to table box object dynamically!

[#1]

Hi All,

Instead of adding the field manually. I would like to add all the fields from its respective table and create the table box. Can someone help me out to achieve this please.

sub create_chart()

set Sheet=ActiveDocument.ActiveSheet

set chart = Sheet.CreateStraightTable
chart.AddDimension "Product"
chart.AddExpression "sum(Amount)"

end sub

Thanks,
Attitude