Search for a tab in a Master workbook from another workbook, if it exists then skip it and if not, create or replace.

[ima2015]

I have a Master.xlsm workbook, and some excels files (File 1.xlsm, File 2.xlsm) from which I would like to transfer their data into the master workbook. The job here is two folds:

1- Search for the tab from File 1 in the Master and if it exists, then skip it, if not then replace tab that do not belong in File 1 and File 2 (Note that File 1 and File 2 have the same tabs).
In the Master workbook, I do not want to touch tabs "Assets A", and "Assets B". Master.xlsm changes periodically based on File 1 and File 2.
2-Transfer the data (F1_Price, F2_Price) from the tabs from File 1, File 2 into the Master workbook.

I started putting together a code to do the job, but I am unable to finish it. Any help is appreciated.

I am not sure why I was not able to upload macro files, so i dropped screen shots. Hope that helps.

Thanks

 

[ima2015]

Sorry, below is the partial code started:

Sub CreateSheet()
Dim rs As Worksheet
Dim wsFile As Worksheet
Dim wbMaster As Workbook

On Error GoTo clear_err

'Open File 1 from source 1
Workbooks.Open ("C:\Users\mougu\Documents\Test\File 1.xlsm")

Set wsFile = Workbooks("File1.xlsm").Worksheets
Set wbMaster = Workbooks("C:\Users\mougu\Documents\Test\Master.xlsm")

wbMaster.Activate

For Each rs In wbMaster.Worksheets
If rs.Name <> "Assets A" And rs.Name <> "Assets B" Then rs.Name = wbFile.Worksheets.Value

Next rs

clear_err:
MsgBox Err.Description

Workbooks("File 1.xlsm").Close


End Sub

 

[ima2015]

Sub CreateSheet()
    Dim rs As Worksheet
    Dim wsFile As Worksheet
    Dim wbMaster As Workbook
    
On Error GoTo clear_err

    'Open File 1 from source 1
    Workbooks.Open ("C:\Users\m\Documents\Test\File 1.xlsm")
    
    Set wsFile = Workbooks("File1.xlsm").Worksheets
    Set wbMaster = Workbooks("C:\Users\m\Documents\Test\Master.xlsm")
    
    wbMaster.Activate
    
    For Each rs In wbMaster.Worksheets
    If rs.Name <> "Assets A" And rs.Name <> "Assets B" Then rs.Name = wbFile.Worksheets.Value
    
Next rs

clear_err:
MsgBox Err.Description
    
    Workbooks("File 1.xlsm").Close

       
End Sub

 

[ima2015]

Error message: Subscript out of Range