Automaticly delete extra sheet

Shouldn't be to hard, I would think. I just don't have the know-how.
I'm looking for how to get the code to automatically delete a sheet I don't need anymore. No popup asking for confirmation.

Currently the following code creates a popup declaring "there might be information on the other sheet, are you sure you want to delete?"

Sheets("Tab").Delete

Full code is here

Sub Worksheet_Change(ByVal Target As Range)
Dim v As Double

Set t = Target
Set r = Range("K1")
If Intersect(t, r) Is Nothing Then
Exit Sub
Else
v = Val(r.Value)
End If
    Select Case v
        Case 1
            Range("A2").Copy
            Range("A2").PasteSpecial Paste:=xlPasteValues, Operation _
                :=xlNone, SkipBlanks:=False, Transpose:=False
            Range("H7:H9").Copy
            Range("H7:H9").PasteSpecial Paste:=xlPasteValues, Operation _
                :=xlNone, SkipBlanks:=False, Transpose:=False
            Sheets("Tab").Delete
    End Select
End Sub

Application.DisplayAlerts = False
Sheets("Tab").Delete
Application.DisplayAlerts = True

Regards

Try...

Application.EnableEvents = False
Sheets("Tab").Delete
Application.EnableEvents = True

Glad it worked for you