One way:

With Workbooks("Excel File A.xls").Worksheets( _
"Worksheet1").Range("A1:J10")
Workbooks("Excel File B.xls").Worksheets( _
"Worksheet2").Range("A1").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With

In article ,
KCG wrote:

I would like to create a macro to copy a range of values from Worksheet1 in
"Excel File A" to a Worksheet2 in "Excel File B". Any ideas???