Hi all

I know of several ways to copy a sheet from a closed workbook, but i am struggling to find a very fast way....

My following code works, but it takes about 15 seconds to run (ideally I would like this under 5 seconds).
The sheet it is copying only has about 230,000 rows of data.

I really hope someone can help me speed this up! or direct me to another method?

Sub Copy()
SYSTEM_TOOLS.Optimisation_ON ' this is another macro that turns all calc to manual and other things to speed up the code
Application.EnableCancelKey = xlDisabled
Dim wbSource As Workbook
Dim wbTarget As Workbook
Dim Sht As Worksheet
Set wbTarget = ThisWorkbook
Set wbSource = Workbooks.Open("G:\DEMOFOLDER\DATA_TO_COPY.xlsb")
wbSource.Sheets("DATA_TO_COPY").Copy After:=wbTarget.Sheets("Sheet1")
wbSource.Close
Application.EnableCancelKey = xlInterrupt
SYSTEM_TOOLS.Optimisation_OFF
End Sub