Try this in place of my last code

Code:
    Application.DisplayAlerts = False
    Do While ThisWorkbook.Worksheets.Count > 2
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Delete
    Loop
    Application.DisplayAlerts = True
    Set BaseWks = ThisWorkbook.Worksheets(2)