Доброго всем вечера.
Прошу о помощи в решение моей задачи.
Есть книга с 20 листами необходимо сохранять лист в специальную папку, с определенным названием, в последнее время нужно что бы после названия добавлялись еще буквы, пример.
Сейчас происходит так книга сохраняется по именем
NON RADIATION CERTIFICATE (BL 1)
а теперь нужно что бы он сохранял:
NON RADIATION CERTIFICATE (BL 1) + текст из ячейки A1 из листа под названием MAP.

Помогите поправить макрос (желательно просто поправить (дополнить) так как в этом не очень разбираюсь
Заранее всех благодарю!

Sub Ìàêðîñ9()'
' Ìàêðîñ9 Ìàêðîñ
' NON RADIOACTIVITY CERTIFICATE
'

'
   Sheets("RAD";).Visible = True
   Sheets("RAD";).Select
   Sheets("RAD";).Copy
   Cells.Select
   Range("A34";).Activate
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   ChDir _
       "D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)\NON RADIOACTIVITY CERTIFICATE (BL 1).pdf" _
       , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, OpenAfterPublish:=False
   ChDir _
       "D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)"
   ActiveWorkbook.SaveAs Filename:= _
       "D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)\NON RADIOACTIVITY CERTIFICATE (BL 1).xlsx" _
       , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   ActiveWindow.Close
   Sheets("START";).Select
End Sub