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)
Bookmarks