Replace my last piece of code with
Code:Application.DisplayAlerts = False Do While ThisWorkbook.Worksheets.Count > 1 ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Delete Loop Application.DisplayAlerts = True Set BaseWks = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))




Reply With Quote
Bookmarks