code to select newly created workbook

[redspanna]

Hi all

I have this piece of code to copy a sheet into a new book

ThisWorkbook.Sheets("TM").Copy Before:=NewBook.Sheets(1)

how can I then activate this new book to edit some of the data there as the above code goes back to the active sheet

thanks

 

[MixedUpExcel]

Hi RedSpanna,

Will this help in what you are trying to do:

Sub test()

Dim MainWorkbook As String
Dim NewWorkbook As String

' ASSIGN A NAME TO YOUR CURRENT WORKBOOK

    MainWorkbook = ActiveWorkbook.Name
    
    Sheets("TM").Copy

' ASSIGN A NAME TO YOUR NEW WORKBOOK WHICH YOU CAN REFERENCE LATER WHEN YOU WANT TO COME BACK TO IT
    
    NewWorkbook = ActiveWorkbook.Name
    
' ACTIVATE ORIGINAL WORKBOOK

    Windows("" & MainWorkbook).Activate
    
' PUT CODE HERE TO DO WHAT YOU WANT WITH MAIN WORKBOOK
    
' ACTIVATE NEW WORKBOOK

    Windows("" & NewWorkbook).Activate

' PUT CODE HERE TO DO WHAT YOU WANT WITH NEW WORKBOOK

End Sub