VBA Loop through all worksheets and "unlist" tables (to retain formatting)

[abx]

I'm trying to piece together a sub to loop through all active worksheets and remove all tables but keep the formatting.

So far I have this code below but it only does the required action for the sheet that is active. I'm sure I'm missing something obvious, can anyone please assist? Thanks.

Please Login or Register  to view this content.

[TMS]

Try:

Please Login or Register  to view this content.

[abx]

Thanks very much, that worked perfectly.

Pesky "activesheet" slowing things down for me

[TMS]

You're welcome. Thanks for the rep.

Pesky "activesheet

... not going anywhere



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.