Delete a Worksheet based on the cell value in another worksheet in the same workbook

[lhickerson]

I have a workbook with 5 worksheets Sheet1, Sheet2, Sheet3, Sheet4, Sheet5.

When cell C16 on Sheet1 states "YES" I would like Sheets Sheet2, Sheet3, Sheet4, Sheet5 to be deleted from the Workbook.

Please help with the VBA Code for this.

Thanks!

[HaHoBe]

Hi, lhickerson,

maybe try

Please Login or Register  to view this content.

Ciao,
Holger

[nilem]

in Sheet1 Module

Please Login or Register  to view this content.

[lhickerson]

Thanks for the quick response. OK - now I have more sheets to delete (lets say Sheet6 thru Sheet 20) but when I put the names in the line "If Target.Value = "YES" Then Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5")).Delete" the code overruns to the next line of code. This causes and error. How do I fix this?

[nilem]

maybe so

Please Login or Register  to view this content.

[HaHoBe]

Hi, lhickerson,

delete all other sheets?

Please Login or Register  to view this content.

Ciao,
Holger

[lhickerson]

The sheet names are not actually Sheet6, Sheet7, etc. They are named sheets all with different names with no particular relation.

Sheet names:

Sheets(Array("Sealed Bid Invite", "Sub Bid Form (GMP)", "Bid Recording Sheet", "Rip and Read", "Cover Letter (GMP)", "TOC (GMP)", "Cost Summary (GMP)", "3A Pages ", "Summary of Allowances (GMP)", "Summary of Unbought Allow (GMP)", "
", "Alt Breakdown (GMP)", "CO-PCO Runsheet (GMP)", "CO-PCO Summary (GMP)","CO Breakdown (GMP)","AL Summary TOC (GMP)","Sub Scope Summary TOC (GMP)")).Delete

Help!

[lhickerson]

I had a error in the code above - I hit "enter" in the middle - my mistake. I fixed it but the code didn't work. I am supposed to copy this code into the "Sheet1" tab in VBA right?

[nilem]

try Sheets(i).Delete instead of Sheets("Sheet" & i).Delete

[lhickerson]

The code is working - thanks very much for your help!