Option
Explicit
Sub
Test()
Dim
ws
As
Worksheet
Set
ws = ThisWorkbook.Sheets(
"Sheet1"
)
If
ws.Cells(3, 5) =
"0"
Then
ThisWorkbook.Sheets(
"Sheet2"
).Delete
ThisWorkbook.Sheets(
"Sheet3"
).Delete
ThisWorkbook.Sheets(
"Sheet4"
).Delete
Else
Set
ws = ThisWorkbook.Sheets(
"Sheet2"
)
If
ws.Cells(3, 5) =
"0"
Then
ThisWorkbook.Sheets(
"Sheet1"
).Delete
ThisWorkbook.Sheets(
"Sheet3"
).Delete
ThisWorkbook.Sheets(
"Sheet4"
).Delete
End
If
End
If
End
Sub