Delete worksheets based on blank data on setup sheet

I need a macro that deletes sheets based on blank cells on a setup sheet. The setup sheet fills in data in the rest of the sheets in the workbook but not all sheets are needed in the end. If A5 is blank when the macro is ran, Sheet1 will be deleted, if A6 is blank then Sheet2, A7= Sheet8...

The macro i'm currently using renames the sheets based on data inputted on the setup sheet. If the cell is blank I get an error that sheets cannot have the same name because it tries to rename the sheets with the blank cell.

Thank you.

You could check to see if the cell is not blank and if it is you can run your code, for example:

Please Login or Register  to view this content.