Error pasting worksheets using Access VBA

[Pikeboy]

When trying to run the below code in Access I get the following Run-time '1004' error:

"To paste all cells from an Excel worksheet into the current worksheet, you must paste into the first cell (A1 or R1C1)."

Set wkBkObj = Workbooks.Open("Somewhere" & strName)
Set wkBkName = Workbooks.Open("Somewhere\FileName.xlsx")

Set xlSheet = wkBkObj.Worksheets(1)
xlSheet.Cells.Copy

wkBkName.Worksheets(1).Paste <-------- Code hangs up here
xlSheet.Cells(1, 1).Copy
wkBkObj.Close
wkBkName.Save
wkBkName.Close
Set wkBkObj = Nothing
Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing


Any ideas? Thanks in advance.

 

[ByteMyzer]

Try the following code change, from:

xlSheet.Cells.Copy

wkBkName.Worksheets(1).Paste

...to:

xlSheet.UsedRange.Copy

wkBkName.Worksheets(1).Paste
Application.CutCopyMode = [COLOR="Navy"]False[/COLOR]

 

[Pikeboy]

Does not seem to like the last line you gave me. States "Method or data member not found"

Not sure if I've clarified well but this code is taking place in Access. Does the version matter?

 

[ByteMyzer]

My mistake, that line should read:

wkBkObj.Application.CutCopyMode = [COLOR="Navy"]False[/COLOR]