What is the exact error you're getting? That code is simple enough that is shouldn't cause an error.

If you just want to copy all of the contents of the chosen workbook sheet1, then use (replace ... with desired destination location):
.Sheets(1).UsedRange.Copy Destination:=...