Dim Active_WB As Workbook
Dim Destin_WB As Workbook
Set Active_WB = ActiveWorkbook
ActiveWorkbook.CheckCompatibility = False
Application.DefaultSaveFormat = xlExcel8 '
Workbooks.Add
Set Destin_WB = ActiveWorkbook
Active_WB.Activate
Active_WB.Sheets(1).Copy after:=Destin_WB.Sheets(1)