Add TableStyle To TableStyles Collection Error

[goss]

Hi all,

Using Excel 2013.

Trying to add a TableStyle to the TableStyles Collection in a workbook.

I receive this error message - not sure why?

Thx
w

Run-time error '5':
Invalid procedure call or argument

Please Login or Register  to view this content.

[goss]

Bump.

thx
w

[romperstomper]

Does the name you're trying to add match an existing style?

[goss]

Thanks Rory,

I manually created a couple of Styles and named them tsData1, tsData2 and tsData3
I really just want to figure out how to rename them using VBA.
I did not see that option so I thought I could Add new Styles named tsCustomData1,....
And then delete the original Custom Styles

thx
w

[romperstomper]

Your code works fine for me unless the code is trying to add a style using a name that matches an existing name.

[goss]

Thanks Rory,

My problem was that after trying to add, i tried listing all TableStyles and I did not see the new Styles because i was using ts.ShowAsAvailableTableStyle.
Apparently when adding a TableStyle it is not given a "Show" Proporty?

• .ShowAsAvailablePivotTableStyle
• .ShowAsAvailableSlicerStyle
• .ShowAsAvailableTableStyle

thx
w

[romperstomper]

You might try duplicating instead:

Please Login or Register  to view this content.

Note that if your existing styles are in use, this will revert the tables to the default style.