Remove all code from workbook except "Thisworkbook"

Hi Everyone,

I have a small problem hoping someone may know a work around. I have used this code to delete all the code in a workbook and it has worked rather well. However now I want to delete all the code except the code in "ThisWorkbook" Can someone advise?

Please Login or Register  to view this content.

Thank You, Mike