title: Get part of file name and insert into Cell
body: <p>I have setup a sheet to copy 1 page, and then create a new workbook with that data and save it as a new file name.</p>
  
  <p>My code for the saving the file is - </p>
  
  <pre><code>    NewName = "HotterPGPalletDespatch - REF " &amp; Format$(Date, "MMDDYYYY") _
       &amp; "-" &amp; Format(CStr(Now),     "hhmm") &amp; ""
  
         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path &amp; "\New\" &amp; NewName, FileFormat _
          :=51, CreateBackup:=False
  </code></pre>
  
  <p>I want to take the Date/Time after the Word Ref and insert this into Cell G2.</p>
  
  <p>How could I do this? (I don't want it to get the current date/time again as this may change so I need it to have the specific numbers from the file path.</p>