title: Run time error 1004
body: <p>When trying to run the below I get the following error:</p>
  
  <blockquote>
    <p>"This extension can not be used with
    the selected file type. Change the
    file extension in the file name text
    box or select a different file type by
    changing the save as type."</p>
  </blockquote>
  
  <p>Code:</p>
  
  <pre><code>Dim strPath As String
  Dim strFolderPath As String
  
  
  strFolderPath = "Y:\
  
  strPath = strFolderPath &amp; _
  Sheet1.Range("A1").Value &amp; _
  Sheet1.Range("B1").Value &amp; ".xlsx"
  
  
  ActiveWorkbook.SaveAs Filename:=strPath
  </code></pre>