Simple Paste

  • Thread starter Thread starter Steph
  • Start date Start date
S

Steph

Anyone have any idea why this won't work? All I am trying to do is copy the
contents on an entire worksheet from one workbook, and paste over the
contents of a sheet called "Data" in another workbook.

Set bk = Workbooks.Open(myFileName)
bk.Worksheets(1).Cells.Copy
ThisWorkbook.Worksheets("Data").Cells.Paste
bk.Close savechanges:=False
 
Paste is not a range method, but a worksheet method.

Set bk = Workbooks.Open(myFileName)
bk.Worksheets(1).Cells.Copy _
ThisWorkbook.Worksheets("Data").Cells
bk.Close savechanges:=False

Should work.

HTH,
Bernie
MS Excel MVP
 
You can also use

Set bk = Workbooks.Open(myFileName)
bk.Worksheets(1).Cells.Copy
ThisWorkbook.Worksheets("Data").Cells.PasteSpecial xlPasteAll
bk.Close savechanges:=False
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Create Workbooks and Copy Template Worksheet to those Workbooks 12
Problem w/code to copy worksheet to new workbook 10
Export specific cell values to an external workbook 1
Macro Skipping a column? 3
Copy contents to a selected sheet in another workbook 1
range and sum? 5
Why is Sheet deleted when Macro runs... 3
Open book, copy and paste from sheet, and then close.... 5

Back
Top