Copy sheet to active workbook, slight issue

[Lee Rabbit]

Hi,

I am trying to copy a sheet from a closed workbook to the active workbook.

My code below works, however it is copying the sheet and then cell referencing back to the workbook it was copied from.

Is there a way to prevent this happening and just keep the exact same formatting when copied into the active workbook.

Thanks in advance for your help.
Regards, Lee

Sub Duplicate_Workbook()

Dim ws As Worksheet
Dim wb1 As Workbook
Dim activeWB As Workbook
Set activeWB = Application.ActiveWorkbook

    Set wb1 = Workbooks.Open("INVOICES.xlsm")
    Set ws = Sheets("INVOICE 1")
    
    ws.Copy After:=activeWB.Sheets("ADMINISTRATION")

    wb1.Close SaveChanges:=False

End Sub

 

[Olukunle]

Why not set the activeWB to a particular object name e.g Workbooks('Soso") instead of using the Activeworkbook property

 

[Lee Rabbit]

Why not set the activeWB to a particular object name e.g Workbooks('Soso") instead of using the Activeworkbook property

This method still links the formulas in the copied sheet to the external spreadsheet it was copied from.

I require the formula to remain as it was originally intended as it feeds off another worksheet within the "copy to" spreadsheet