Sub ExportToMasterFileChalk5()
Workbooks("JMPI MANIFEST.xlsm").Sheets("Chalk 5").Copy before:=Workbooks("DO NOT DELETE_MASTER JMPI MANIFEST.xlsm").Sheets(1)
Workbooks("DO NOT DELETE_MASTER JMPI MANIFEST.xlsm").Sheets(1).Name = Format(Date, "DDMMMYYYY") + " Chalk 5"
End Sub