Reset Excel sheet count?

[austenr]

Is this what you want?

 Public Sub DeleteSheets()
    Dim currentSheet As String
    Dim varAnswer As String
    Dim wsSheet As Worksheet
    Dim strName As String
    currentSheet = ActiveSheet.Name
    varAnswer = MsgBox("This will delete all sheets except for the sheet named '" + _
    currentSheet + "'" + (Chr(13)) + (Chr(13)) + "Click Yes to irreversibly erase " & _
    "the other sheets, or No to cancel this procedure", vbYesNo, _
    "Warning - This Procedure Can Not Be Undone!")
    If varAnswer = vbNo Then
        Exit Sub
    Else:
        Application.DisplayAlerts = False
        With ActiveSheet
            For Each wsSheet In Worksheets
                strName = wsSheet.Name
                If strName <> currentSheet Then
                    wsSheet.Delete
                End If
            Next wsSheet
        End With
    End If
    ActiveSheet.Name = "Sheet1"
    Application.DisplayAlerts = True
End Sub