bringing 2 sheets (at the end of workbook) to the Same newly created workbook

Hi,


I Have the last two sheets (which are inserted at the end of a my workbook(MainFile) that I want to move to a new work book.

The issue is I have to move them one by one and the new book that is created --well the name changes--So selecting it is difficult.

So far I have..

Set ThisWorkbook = MainFile

 'Find the last sheet
    Sheets(Sheets.Count).Select

 'Move to New Workbook
    ActiveSheet.Move
    
 MainFile.Select 'going back to the mainworkbook to grab the second piece of sheet 

'Now trying to grab the last sheet
  Sheets(Sheets.Count).Select

but can't figure a clever way to select the new workbook created

Any help?

Perhaps make the new workbook the activeworkbook before running the code?

Sub swade730zz()
Dim NewWorkbook As Workbook, Mainfile As Workbook, i As Long
Set NewWorkbook = ActiveWorkbook
Set Mainfile = Thisworkbook
For i = Mainfile.Sheets.Count To Mainfile.Sheets.Count - 1 Step -1
Mainfile.Sheets(i).Copy after:=NewWorkbook.Sheets(Sheets.Count)
Next i
End Sub

Originally Posted by JOHN H. DAVIS

Perhaps make the new workbook the activeworkbook before running the code?

For i = Mainfile.Sheets.Count To Mainfile.Sheets.Count - 1 Step -1
Mainfile.Sheets(i).Copy after:=NewWorkbook.Sheets(Sheets.Count)
Next i

Will this rip the Last Two sheets into the workbook?

Don't know what you mean by rip. It will copy them.