Skipping System Messages

Hello,

Right now I have a macro that asks a user if they would like to delete a worksheet and start a new one.

Dim MsgAnswer As Integer
    MsgAnswer = MsgBox("Task list already created. Overwrite?", vbOKCancel, "Duplicate Sheet")
    If MsgAnswer = 1 Then
        Worksheets(Sheet1).Delete
        Sheets.Add.Name = "Sheet1"
    ElseIf MsgAnswer = 2 Then 
        Exit Sub
        UserForm.Hide
    End If

The problem is, that when I execute the Worksheets(Sheet1).Delete, it prompts the user again if they would like to delete the page through the system. Is there a way to circumvent this?

Application.DisplayAlerts = False
Dim MsgAnswer As Integer
    MsgAnswer = MsgBox("Task list already created. Overwrite?", vbOKCancel, "Duplicate Sheet")
    If MsgAnswer = 1 Then
        Worksheets(Sheet1).Delete
        Sheets.Add.Name = "Sheet1"
    ElseIf MsgAnswer = 2 Then 
        Exit Sub
        UserForm.Hide
    End If
Application.DisplayAlerts = True

thanks a lot!