VBA Creating a new sheet not working as expected

[knacksc2]

So technically the following code is working:

Private Sub CommandButton1_Click()
Create_Sheet
Import_All_Branches
Delete_Sheet
End Sub

The actual sub is this:

Sub Create_Sheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Single Branch Open Order Detail"
End Sub

I have only one sheet in the workbook before i click my button, a sheet is added with the correct name but it is sheet3... If i run just the sub it creates it as sheet2.. something about using the button i assume?

here is the code for the delete sheet process:

Sub Delete_Sheet()
Application.DisplayAlerts = False
    Sheets(2).Delete
Application.DisplayAlerts = True
End Sub

Any help would be much appreciated.

 

[Fluff]

Do you have any hidden, or very hidden sheets?

 

[knacksc2]

I believe no. I created this sheet today and have not hidden any sheets. not sure what very hidden means, so not sure on that one

 

[knacksc2]

sometimes it works, sometimes it doesn't could it be that even after i save and close then reopen there is still memory that it already created sheet2 even though it is gone. and so just created sheet3?

 

[Fluff]

If you've closed the workbook, then the sheet numbering should revert to the next sheet number.
However if you add & delete sheets, without closing, then you'll get sheet 2, then 3, then 4 etc.