Copy Worksheet to New Workbook Based on Worksheet Name

[MICowboy13]

Hi all,

I'm trying to write a code that searches the active workbook for sheet names that end in "budget" and add them to a new workbook. Then I would like to delete the sheets that were copied from the active workbook. Here is what i have but it doesn't work (I'm sure there are many reasons why). Any help would be appreciated.

Please Login or Register  to view this content.

Thanks!

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[MICowboy13]

John,

This is currently not working, I just realized that a previous part of my code is exiting the sub. Would I be able to create a new module for this sub and call it to run once the previous sub is exited? If so, could you provide a code to add at the end to call this one to run?

This is the reason it exits;

Please Login or Register  to view this content.

Thanks

[JOHN H. DAVIS]

Not sure I understand. Try this:

Please Login or Register  to view this content.

[MICowboy13]

John,

This move of sheets is part of a much larger code, it is actually the last thing I need it to do. Due to the way this code works I can't use the above example. I was just asking if there is a way to call a second sub upon the exit of another sub. I appreciate your time and will work through a solution myself unless you have any input. The first code you gave me works beautifully, much thanks!

[JOHN H. DAVIS]

The only input I could provide is if you want to call vrs exit itself, Or if the condition ws.Range("Q190") > 0 would be required before running the macro I suggested then you would call it at the very end of your existing sub routine. Hope that helps?