copy the third worksheet to a new book
Sub SimpleWorksheetMovement() ThisWorkbook.Worksheets(3).Copy End Sub