Macro to prevent switching ActiveBook

Hi

You can use ThisWorkbook, rather than ActiveWorkbook

This is also a little bit neater, faster and avoids Activating altogether

Sub copyData()

Application.ScreenUpdating = False
   
Workbooks.Add.Sheets("Sheet1").Range("A1:S25").Value = _
         ThisWorkbook.Sheets("Sheet1").Range("A1:S25").Value

Application.ScreenUpdating = True
End Sub

Or maybe:

Sub copyData()

Application.ScreenUpdating = False
   
         ThisWorkbook.Sheets("Sheet1").Range("A1:S25").Copy _
                Workbooks.Add.Sheets("Sheet1").Range("A1")
                

Application.ScreenUpdating = True
End Sub

If you want the formatting