VBA Copy Worksheet to Another Workbook

Small Paul

Board Regular
Joined
Jun 28, 2018
Messages
118
Hi

I have 2 workbooks. Workbook A contains 1 worksheet. Workbook B (purchased items) has a variable number of worksheets.

I need to copy the worksheet in A and add it to be the LAST worksheet in B.

The code I have at present is:



Code:
Sub Macro1()'
' Macro1 Macro
'
activesheet.name = "Payee Details"
activesheet.Copy
after = Workbooks("Purchased Items.xlsm").worksheets.Count


End Sub
When run, the name is changed and the worksheet is copied.

However, it does not appear in 'Purchased Items'

I know it is something simple but can somebody please help?

Cheers
Small paul.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
33,380
Office Version
365
Platform
Windows
If the code is in Workbook A try
Code:
Sub SmallPaul()
   Dim Wbk As Workbook
   
   Set Wbk = Workbooks("Purchased Items.xlsm")
   With ThisWorkbook.Sheets(1)
      .Name = "Payee details"
      .Copy , Wbk.Sheets(Wbk.Sheets.Count)
   End With
End Sub
 

Small Paul

Board Regular
Joined
Jun 28, 2018
Messages
118
I keep ALL my code in 'Personal.xlsx'
The above did not work, even when adjusted for the location.
I now have the following which fails on the final line "Run-time error 1004: Copy method of Worksheet class failed

Code:
Sub Macro3()'
' Macro3 Macro
'
   ActiveWorkbook.SaveAs "Z:\Paul\Payee Details.xls"
       activesheet.name = "Payee Details"
       worksheets("Payee Details").Select
   Workbooks("Payee Details.xls").worksheets("Payee Details").Copy , after = Workbooks("Purchased Items.xlsm").worksheets.Count


End Sub
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
33,380
Office Version
365
Platform
Windows
In that case, change ThisWorkbook to
Code:
Workbooks("Aname.xlsm")
 
Last edited:

Forum statistics

Threads
1,084,744
Messages
5,379,571
Members
401,613
Latest member
KarimK9

Some videos you may like

This Week's Hot Topics

  • VBA code giving errors and stopping Excel
    Hello Experts, I have this code being used to loop through files in a file path, and copy specific data to another sheet. It is giving me several...
  • Disable MsgBox message
    Morning, I have a userform where if i leave a ComboBox empty i see a MsgBox warning me that i must enter an invoice number. It is this MsgBox i...
  • Macro Recorder into VBA, Copy Paste Data Filled Cells
    Hi Everyone, I have a macro recorder file that takes a selection of data, copies, then pastes into a new sheet on ("A2:B2") The issue is my...
  • Number format changes while pasting into a cell
    Hi, I am trying to paste a number 180204524303 from an email to an excel cell, however, whenever i try to do so , the the paste value appears as...
  • Collating data
    Hello all. Could someone please help. I am trying to pull all column data from multiple sheets (24 I total so far) into 1 master sheet without...
  • Sum Multiple Columns Based on Multiple Criteria
    I am trying to consolidate data by summing columns G through M based on material, plant, vendor, and fiscal year being identical. The period does...
Top