title: Save Excel file with a cell content name
body: <p>I am in the process of developing a Macro which will save the Excel file as a PDF and another excel file. Its should also rename these files using content from one of the cell in the file.</p>
  
  <p>I have the code as below.</p>
  
  <pre><code>Sub Save_As_Excel_and_PDF()
  '
  ' Save_As_Excel_and_PDF Macro
  ' This Macro will save the PO in Excel and PDF (New Files) in the PO folder on Desktop
  '
  
  '
      Sheets("Sheet1").Select
      Sheets("Sheet1").Copy
      Cells.Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Columns("N:T").Select
      Application.CutCopyMode = False
      Selection.Delete Shift:=xlToLeft
      Range("L4:M4").Select
      Cells.Find(What:="regd office", After:=ActiveCell, LookIn:=xlFormulas, _
          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False).Activate
      Range(Selection, Cells(1)).Select
      Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  
  'At this point I want it to Copy a content from the excel file and Name the PDF file by pasting this content in the file name section'
  
          "C:\Users\Nakul\Desktop\PO\123456.pdf", Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
          False
      ActiveWorkbook.SaveAs Filename:="C:\Users\Nakul\Desktop\PO\123456.xlsx", _
  
  'I also want to save an excel file with that name.
  
          FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  End Sub
  </code></pre>
  
  <p>Right now it is saving all the files by the name 123456.xlsx and 123456.pdf</p>