In Current workbook- copy sheets from other workbooks and save in current workbook

I know how to copy/move sheets from the workbooks where a sheet in the current xlsx is copied to a different workbook, but what I need is to be in the current workbook and copy entre sheets from other workbooks and replace the existing sheets (of same name) in the current xlsm. So that the macros in the MASTER.xlsm will work on the new data.

These are Excel xlsx exported from QuickBooks Online Enterprise software as reports-- QB will not let me export them into an xlsm file, so we export them each as xlsx.

Since we do this daily, I would like to automate this process- to replace the old sheets with new sheets of same name.


Current workbook is: MASTER.xlsm

Sheets to copy into current Workbook (MASTER) are:
All Workbooks are in the same directory: x:\documents\QB Excel Report XLSX\
Sheet "1 OPEN POs" from QBEXPORT OPEN POS.xlsx
Sheet "2 ITEM LISTING" from QBEXPORT ITEM LISTING.xlsx
Sheet "3 PENDING BUILDS" from QBEXPORT PENDING BUILD.xlsx
Sheet "4 ITEM SALES" from SALES BY QBEXPORT ITEM.xlsx
Sheet '5 TRANSACTIONS" from "QB EXPORT TRANSACTIONS DETAIL.xlsx"

Thanks,

J

I have accomplished this using the "record macro" but there are still 2 issues- both concern prompts that still pop up when I run the macro (even though I answered the prompt when recording the macro)

1. After I copy a sheet from a workbook to the Master workbook & change the sheet name-- when I close that workbook, prompt still asks "if I want to save any changes."

2. I delete all sheets in the Master workbook before I copy in the sheets from 5 different workbooks--- prompt asks me "do I want to delete"

Here is code for 1 of the workbooks....code for the other 4 workbooks is basically same.

Any help on how to avoid those prompts?

Thanks,

J




Sub Macro1()
'
' Macro1 Macro

Workbooks.Open Filename:= _
"C:\Users\jim\Desktop\QB Reports as XLSX\Export to Access PENDING BUILDS.xlsx"
Sheets("Sheet1").Select
Sheets("Sheet1").Move After:=Workbooks("MASTER QUICKBOOKS REPORT XLSX.xlsm"). _
Sheets(1)
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "1 PENDING BUILDS"
Range("N33").Select
Windows("Export to Access PENDING BUILDS.xlsx").Activate
ActiveWindow.Close
Application.WindowState = xlNormal


Sheets("MAIN MENU").Select

End Sub