I am attempting to delete all worksheets in my workbook except for the two titled: "main" and "dataset". My current code seems to simply delete the last two worksheets.

```
Option Explicit
Option Base 1

Public Sub DeleteWS()
    Dim mySheet As String, mySheet2 As String, ws As Worksheet
    mySheet = "main"
    mySheet2 = "Dataset"
    For Each ws In Worksheets
        If ws.Name <> mySheet Or ws.Name <> mySheet2 Then
           ActiveWindow.SelectedSheets.Delete
        Else
            Exit Sub
        End If
    Next
End Sub

```