Excel VBA - MsgBox Cancel

Hi Ziggy, thanks for your query. Your problem is that you are attempt to do the worksheet management in the DeleteSheet routine. Once you forcibly exit out of that procedure you're sent straight back to CreateSheet and Sheets.Add after:=Sheets(Sheets.Count), ActiveSheet.Name = strName. I've tweaked the code and got it to do what I think you need, but let me know if you need any further help.

Here's the code:
_____________

Dim strname As String

Sub CreateSheet()

strname = "Data"

Call DeleteSheet

End Sub

Sub DeleteSheet()

Dim shtSheet As Worksheet
Dim iReply As Integer
Application.DisplayAlerts = False

For Each shtSheet In ActiveWorkbook.Worksheets

If shtSheet.Name = strname Then

iReply = MsgBox(Prompt:=strname & " already exists" & vbCrLf & vbCrLf & "This action will overwrite the existing tab", _
Buttons:=vbOKCancel, Title:="Choose")

If iReply = vbOK Then

MsgBox "OK pressed. Deleting Sheet"
shtSheet.Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = strname
Exit Sub

Else

MsgBox ("Exiting")
Exit Sub

End If

End If


Next shtSheet

End Sub
________________________


Hope this helps,

Anthony