if cell=specific text then delete sheet

[ndendrinos]

hello,
I'm trying to add at the end of my code this:
If [A16].value = ("b/order")
then delete active sheet
else do nothing
many thanks

 

[Von Pookie]

Something like this?

If [A16].Value = "b/order" Then
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End If

 

[ndendrinos]

Than you it is precisely like this AND case sensitive too
Have a good evening