How to Vba macro copy&paste another workbook?

[horizon2]

This code copies and pastes the worksheet I'm looking at: to selected excel file (include macro run button)

 Set ww = ThisWorkbook.ActiveSheet 
            Set closedBook = Workbooks.Open(ReturnStr)
    
        ww.Copy After:=closedBook.Sheets(Sheets.Count)
        closedBook.Close SaveChanges:=True

I wanted the macro to work on the pasted worksheet,So I put this variable in the code.

But ThisWorkbook is refers to the original file from which the macro was created.

And I found it. Module was not pasted.

How can I fix it?

I've read how to copy and paste myself,I want it to work automatically.

Sub worksheet_export()

Dim FDG As FileDialog
Dim Selected As Integer: Dim i As Integer
Dim ReturnStr As String: Dim tempStr As Variant

'SelectAgain:

Set FDG = Application.FileDialog(msoFileDialogFilePicker)

With FDG
    .Title = "select file"
    .Filters.Add "excel file", "*.xls,*.xlsx;*.xlsm;*.xlsb"
    .InitialView = msoFileDialogViewList
    .InitialFileName = "C:\Users\Admin\Google drive\Myfiles"
    .AllowMultiSelect = False
    Selected = .Show
    
    If Selected = 0 Then
        MsgBox "cancel"
        'GoTo SelectAgain:
    ElseIf Selected = -1 Then
        ReturnStr = .SelectedItems(1)
        Application.ScreenUpdating = False

    Set ww = ThisWorkbook.ActiveSheet
    Set closedBook = Workbooks.Open(ReturnStr)

    ww.Copy After:=closedBook.Sheets(Sheets.Count)
    closedBook.Close SaveChanges:=True
    
    End If
    

End With
 
End Sub[CODE=vba]

[/CODE]

 

[julhs]

Hope this helps.

If your macro code is in a ‘Module’ in your Active Workbook then that is not copied across to a different Workbook, you will have to do that separately. Or put the code in a Module in your ‘Personal.XLSB’ book so it is available for ‘All Workbooks’

Have you tried; right clicking on the Button that did copy over and then click on “Assign macro”.
You will see all the macros available, highlight the one you use for the Button, then on the right, click ‘Edit’

That should open the ‘Developer tab’, you will see the code for that macro in the main window.
In the list on the left is all your Sheets and Modules etc in that Workbook, one in the list will be highlighted and that is where your code resides.

You can view the code of any Module or Sheet by right click it and then click ‘View code’.