Macro to delete worksheet/tab if specific text doesn't exist

**arpanpanchal** · 01-05-2016, 11:39 PM

Hi Friends

I have report with around 50 tabs in a single workbook. I want to create a macro to delete if specific text doesn't exit in the tab.

Also, is there any way to delete odd or even tabs from the workbook?

I really appreciate your help with this.

Thanks in advance.

Regards
Arpan

**jewelsharma** · 01-06-2016, 12:20 AM

to delete if a specific text doesn't exist:

Please Login or Register  to view this content.

to delete ODD:

Please Login or Register  to view this content.

**YasserKhalil** · 01-06-2016, 12:22 AM

Hi Arpan
What is the specific text exist in all sheets ? Is the specific text fixed in speicifc cell (A1 for example) or it may be diiferent?
I prefer to attach a sample workbook ..
Regards

**YasserKhalil** · 01-06-2016, 12:29 AM

Great jewelsharma
Just this line would be

Please Login or Register  to view this content.

Another point to avoid the error if all the sheets doesn't have the specific text, there would be at least one sheet in the workbook

Please Login or Register  to view this content.

**jewelsharma** · 01-06-2016, 12:39 AM

Nice pick up Yasser.
Appreciate your reviewing my submission.

**arpanpanchal** · 01-06-2016, 12:45 AM

Hi jewelsharma

Thanks for your reply. The first code doesn't work and second code works fine. The first one gives me the error. When I click Debug, it is highlighting "For Each ws In ThisWorkbook".

Is there anyway to fix this?

Thanks a lot for your time and help

Regards
Arpan

**arpanpanchal** · 01-06-2016, 12:47 AM

Thanks a lot Yasser

It works perfect now. Appreciate your help. I have updated the code as advised.

Regards
Arpan

**jewelsharma** · 01-06-2016, 12:51 AM

Arpan,
I have just edited by earlier response. In the highlighted line, please replace ThisWorkbook with ThisWorkbook.Worksheets (as spotted by Yasser).
Let us know if it still doesn't work.

Cheers!
Jewel

**YasserKhalil** · 01-06-2016, 01:00 AM

Really nice codes Mr. Jewel
Thank you very much for this great solutions
Kind Regards

Macro to delete worksheet/tab if specific text doesn't exist

LinkBack

Thread Tools

Rate This Thread

Display

Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Re: Macro to delete worksheet/tab if specific text doesn't exist

Thread Information

Users Browsing this Thread

Similar Threads

formula to refer to a cell, in a worksheet, in another workbook, that doesn't exist.

Code to check ComboBox.Value doesn't already exist in range before attempting to delete

How to delete a worksheet if it doesn't exist in a list

VBA to delete row if specific value exist in row above

Insert row if text doesn't exist

[SOLVED] Copy Worksheet to a new Workbook creating if it doesn't exist and add more Worksheets if it does exist

search for worksheet, insert new if doesn't exist

Bookmarks

Bookmarks

Posting Permissions