ActiveWorkbook.Sheets("Sheet1").Range("A3:G5000"). Copy _
Workbooks("Recap.xls").Worksheets("Sheet1").Range( "A1")

Assuming the file opened by the user is the active workbook.

Tim

"Denys" wrote in message
ups.com...
Good morning everyone,

Is there a way I can copy the above mentioned range from a file
already opened by a user and therefore marked as read-only to another
file named Recap for example?

Thank you for your time

Denys