If sheet exists called Sheet* then delete

**nickmax1** · 07-06-2016, 06:08 AM

I have a workbook with many sheets labelled properly, but occassionally my colleagues add a new sheet to the spreadsheet and save it which knackers my formulas.
I want to add a check in my beforeclose function that checks for sheets that begin with the word Sheet, so anything called Sheet1, Sheet2 etc is to be deleted.

What i have so far is:

Please Login or Register  to view this content.

Whilst this works great if there is just the Sheet1, it does not work for Sheet2 onwards as I cant quite figure out how to loop the code.

**Olly** · 07-06-2016, 06:24 AM

Something like:

Please Login or Register  to view this content.

**nickmax1** · 07-06-2016, 06:35 AM

Wow that was quick!
it works brilliantly, if I may though - can you edit the code to go to the sheet its about to delete, so the user can see if there is any data on there worth keeping?
ws.name.select doesnt work...

nevermind figured it out...it needed

Worksheets(ws.Name).Activate

Solved...rep added.

**Olly** · 07-06-2016, 06:58 AM

Add the line highlighted red:

Please Login or Register  to view this content.

**JOHN H. DAVIS** · 07-06-2016, 07:10 AM

Maybe:

Please Login or Register  to view this content.

**nickmax1** · 07-06-2016, 07:37 AM

John, thanks very much - that code works even faster still!

rep added

**JOHN H. DAVIS** · 07-06-2016, 08:31 AM

You're welcome. Glad to help out. Thanks for the feedback and reps.

If sheet exists called Sheet* then delete

LinkBack

Thread Tools

Rate This Thread

Display

If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Re: If sheet exists called Sheet* then delete

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Delete sheet if it exists

[SOLVED] Check range from one sheet against range in another sheet and then delete row if exists

[SOLVED] Check if sheet exists and delete it using IF ERROR function in VBA

sorting sheet 1 and it affecting the values called from sheet 1 to sheet 2

Delete a sheet, if it exists

Macro to copy sheet from closed work book and overwrite if sheet already exists

delete sheet if exists help needed

Bookmarks

Bookmarks

Posting Permissions