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.
 

Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
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
 
Upvote 0
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
 
Upvote 0
In that case, change ThisWorkbook to
Code:
Workbooks("Aname.xlsm")
 
Last edited:
Upvote 0

Forum statistics

Threads
1,213,495
Messages
6,113,992
Members
448,538
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top