Closing Workbook With Partial Name

[BrittKnee]

Hi there. I am currently in need of closing a workbook with a partial name. I am able to open the file, but need to close it once it copies a worksheet to another workbook. Below is what I currently have:

Set wkb = Workbooks("Vacancies_Report_A.xlsm")

'Open Combined Vacancy Workbook

Workbooks.Open Filename:="S:\Main Folder\Vacancy Project\Raw Data\Current Vacancies_Combined_******" & ".xlsm"


'Copy Formatted Tab to Vacancy Report Workbook

Sheets(2).Select

Sheets(2).Copy Before:=wkb.Sheets("Most_Recent_Data")

Workbooks("Current Vacancies_Combined_******" & ".xlsm").Close

All help is appreciated.

 

[rlv01]

Use a workbook variable.

    'Open Combined Vacancy Workbook
    Dim WB As Workbook
    Set WB = Workbooks.Open(Filename:="S:\Main Folder\Vacancy Project\Raw Data\Current Vacancies_Combined_******" & ".xlsm")
    
    'Copy Formatted Tab to Vacancy Report Workbook
    Sheets(2).Select
    Sheets(2).Copy Before:=wkb.Sheets("Most_Recent_Data")
    
    WB.Close

 

[BrittKnee]

That worked! Thanks so much.