title: How to save a workbook using InputBox in VBA?
body: <p>I am trying to open and save a workbook based on what the use decides to name the file. I am able to open and save the workbook but I cannot figure out how to give the user the option to change the name of the save file. Here is my code:</p>
  
  <pre><code>Sub Sheets()
  
  Dim wb1 As Workbook
  
  wb1save = Application.InputBox("What would you like to save this file as?")
  
  Set wb1 = Workbooks.Add
  
      wb1.SaveAs ("e:\excel\"Filename:=wb1save")
  
  End Sub
  </code></pre>
  
  <p>Any help would be greatly appreciated.</p>
  
  <p>Thanks,</p>
  
  <p>G</p>