VBA Copy Worksheet to Another Workbook

[Small Paul]

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:

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]

If the code is in Workbook A try

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]

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

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]

In that case, change ThisWorkbook to

Workbooks("Aname.xlsm")