Macro Command To Get Back to Workbook

[MikeG]

I have a macro that copies a worksheet in the current workbook to a new workbook and then saves that new workbook. What I want to do is to then go back to my original workbook, leaving the new one still open.

I know I need a command before the "Sheets("Full Quote Document").Activate" line to select my original workbook, but my problem is, I cannot hardcode the name of the workbook, because the user may save it under different names over time. So I want to have a way of recording the name of the original workbook at the start into a variable and then be shown how to then select the workbook using that variable.

Thanks,

MikeG



====================================
Dim wbNew As Workbook
ThisWorkbook.Worksheets("Full Quote For New").Copy

Set wbNew = ActiveWorkbook
With wbNew
.SaveAs Filename:=Range("Save_Name") & ".xlsx"
Application.DisplayAlerts = True
.Close
End With

Sheets("Full Quote Document").Activate

 

[Jonmo1]

You already have your answer in the code you posted...

You used this
Set wbNew = ActiveWorkbook
to create an object variable for the New Book..

Just do the same thing PRIOR to creating the new book..

Dim wbNew As Workbook, wbCur As Workbook
 
Set wbCur = ActiveWorkbook
ThisWorkbook.Worksheets("Full Quote For New").Copy

Set wbNew = ActiveWorkbook
With wbNew
.SaveAs Filename:=Range("Save_Name") & ".xlsx"
Application.DisplayAlerts = True
.Close
End With

Sheets("Full Quote Document").Activate 
 
wbCur.Activate

Or, even simpler...
There is a built in object variable that refers to the book containing the code...

ThisBook.Activate

ThisBook Refers to the book containing the code.


Hope that helps.

 

[MikeG]

You already have your answer in the code you posted...

You used this
Set wbNew = ActiveWorkbook
to create an object variable for the New Book..

Just do the same thing PRIOR to creating the new book..

Dim wbNew As Workbook, wbCur As Workbook
 
Set wbCur = ActiveWorkbook
ThisWorkbook.Worksheets("Full Quote For New").Copy

Set wbNew = ActiveWorkbook
With wbNew
.SaveAs Filename:=Range("Save_Name") & ".xlsx"
Application.DisplayAlerts = True
.Close
End With

Sheets("Full Quote Document").Activate 
 
wbCur.Activate

Or, even simpler...
There is a built in object variable that refers to the book containing the code...

ThisBook.Activate

ThisBook Refers to the book containing the code.


Hope that helps.

Thanks very much Jon - that's great.

MikeG