Macro to save concatenate names

[Tigrou25]

Hi all,

I have created a macro to extract few tabs from a spreadsheet and save a new spreadsheet.

I would like to save the new file using the month in the tab "Control_Page" (in cell B12).

I have tried the code below

ActiveWorkbook.SaveAs Filename:= _
"1. " & sheets("Control_Page".Range("B12")&" Monthly P&L Review.xlsx"

which doesn't work.

The idea would be to have the following file name

1. Oct 18 Monthly P&L Review.xlsx

with Oct18 being cell B12 in the tab "Control_Page"

Thanks for your help

 

[Tigrou25]

Here the files: https://transfernow.net/033po161nl9s

The macro file is PERSONAL - FY16 and the macros are FY17_CMT_Report_excel_01_NAT_CONST, FY17_CMT_Report_excel_02_NSW_AO etc.

Thanks

 

[Tigrou25]

Hi there,

I now try to overwrite the file when I save it.

I have put the following code but it doesn't work, it asks me if I want ro replace the file.

Application.DisplayAlerts = False

I have also tried

ActiveWorkbook.Application.DisplayAlerts = False

Here the full code

ActiveWorkbook.SaveAs Filename:= _        "S:\Construction\National - Head Office\A Profit and Loss\A01 FY Budgets\08. FY19 P&L\1.Monthly P&L Review\Excel\1. NAT CONST CMT P&L.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 ActiveWorkbook.Application.DisplayAlerts = False
        ActiveWindow.Close