title: Copying and renaming unopened workbook in excel
body: <p>I am trying to copy an entire unopened workbook located at one file path, rename it and save it to a new directory... I am having issues with the renaming and saving, here is my code thus far:</p>
  
  <pre><code>Private Sub new_file_Click()
  Dim ActBook As Workbook, NewFile As String
  Dim ToolFilePath As String, DestFilePath As String, NewToolName As String
  NewToolName = InputBox("Enter the Tool Name.")
  
  MsgBox (Tools_ListBox.Value)
  ToolFilePath = GetToolPath(Tools_ListBox.Value)
  ToolFilePath = GetPath &amp; ToolFilePath
  
  DestFilePath = GetPath &amp; GetDestPath(Tools_ListBox.Value) &amp; NewToolName &amp; ".xlsm"
  
  Set ActBook = Workbooks.Add(ToolFilePath)
  ActBook.SaveAs DestFilePath
  ActBook.Close True
  </code></pre>
  
  <p>The file that i want to copy is located at the path in ToolFilePath and the located I want to rename it to is DestFilePath, which includes the excel .xlsm extension.</p>
  
  <p>Where am I going wrong?</p>
  
  <p>Thanks</p>