Thread: Copying a worksheet into a new worksheet

Hi Barking_Mad,

The following code, copies the active sheet, creates a new one, using the default incremental naming scheme, pastes the data to the new sheet, then moves the sheet to the end of all of the worksheets.

I have fully commented out the code.

Hope this helps bud

Code:

Sub test3()

' Select the active sheet'

ActiveSheet.Select
    
'select & copy all data'

    Cells.Select
    Selection.Copy

'Add new WS'
Sheets.Add
    
'paste copied data into the newsheet'

    ActiveSheet.Paste
    

'move the new sheet to the end of all of the sheets using the default naming convention'

ActiveSheet.Move _
       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
       
       ' selects cell A1 so that it removes the "cells.select"'
       
      Range("A1").Select
      

End Sub

thanks to both of you that's great