Save as using multiple Cells

Hi mille1sj,

Enter following code in the workbooks for each manager and edit the Note in the code:-

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Note:- here I am using cell IV1 for some combining texts for workbook name, if required choose other cell
Range("iv1").Formula = "=b5&""_""&b4&""_""&l3&""_""&TEXT(R3,""dd-mmm-yy"")"
Range("iv1").Select
i = ActiveCell.Value
ChDir "C:\Users\DILIPandey\Desktop" 'Note:- change the path as per your preference
ActiveWorkbook.SaveAs Filename:=i, FileFormat:=xlOpenXMLWorkbookMacroEnabled  

'Note: remove code line FileFormat ...Enabled portion from above line if you face any issue with Excel 2003.

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

How to add:-
open workbook, press Alt + F11, locate your workbook in left window, double click on "This workbook" and paste above code

Regards,
DILIPandey

<click on below 'star' if this helps>