title: Copying Values from one Workbook to a newly created workbook
body: <p>Can someone please review my code below and tell me what's missing? I thought this would work, but keeps breaking on the copy function. Help greatly appreciated.</p>
  <p>Code copies an excel workbook template and renames it in a new directory. Then needs to paste data in from the current workbook to the new one. Copying from this workbook sheet &quot;Site Page&quot;, and pasting into NewFileName sheet &quot;Summary&quot;.</p>
  <pre><code>Public NewIntegration As String
      
  Sub Copy_One_File()
      
  'Variables
  Dim TemplateWorkbook As String
  Dim NewWorkbook As String
  Dim GivenLocation As String
  Dim OldFileName As String
  Dim NewFileName As String
  
  'Define Strings
  TemplateWorkbook = &quot;\\r.sharepoint.com@SSL\DavWWWRoot\teams\NOE-RadioEng\Radio\New Build\_2019 NSB Tracker\Integration Reports\Template\TEMPLATE.xlsx&quot;
  NewWorkbook = &quot;\\r.sharepoint.com@SSL\DavWWWRoot\teams\NOE-RadioEng\Radio\New Build\_2019 NSB Tracker\Integration Reports\TEMPLATENew.xlsx&quot;
  GivenLocation = &quot;\\r.sharepoint.com@SSL\DavWWWRoot\teams\NOE-RadioEng\Radio\New Build\_2019 NSB Tracker\Integration Reports\&quot;
  ReportCreator = &quot;\\r.sharepoint.com@SSL\DavWWWRoot\teams\NOE-RadioEng\Radio\New Build\_2019 NSB Tracker\Site_Integration_Report_Creator.xlsm&quot;
  OldFileName = &quot;TEMPLATENew.xlsx&quot;
  NewFileName = Range(&quot;D9&quot;).Text 'grab new file name report creator
  NewIntegration = GivenLocation &amp; NewFileName 'New location and file name
  
  'Functions
  FileCopy TemplateWorkbook, NewWorkbook 'copy file to new location
  Name GivenLocation &amp; OldFileName As GivenLocation &amp; NewFileName 'Rename based on H2 cell name
  
  'MsgBox NewIntegration
  'Workbooks.Open (NewIntegration)
  'MsgBox NewIntegration
  'Workbook.Close (NewIntegration)
  'MsgBox Worksheets(&quot;Summary&quot;).Range(&quot;A1&quot;)
  
  'copy values to new sheet
  Worksheets(&quot;Site Page&quot;).Range(&quot;J2&quot;).Copy_ Workbooks(NewIntegration).Worksheets(&quot;Summary&quot;).Range(&quot;G1&quot;)
  End Sub
  </code></pre>