title: Save multiple sheets in a new workbook in a particular file format
body: <p>I tried to read up a few related posts on the forum but wasnt able to make a code work or understand the syntax of a few functions.</p>
  
  <p>I will try to describe what I want to be done in a crisp fashion:</p>
  
  <ul>
  <li><p>I have a workbook with the multiple sheets (Sheet1, Sheet2 ... Sheet 5) and I want to create a macro assigned button to <strong>Save as a new work book</strong> containing only Sheet 1, Sheet 2 and Sheet3</p></li>
  <li><p>The file format should be Microsoft Excel 97-2003 Worksheet (.xls) </p></li>
  <li><p>On clicking the Macro assigned button the Save as dialogue box should pop up allowing the user to select destination and also optionally a new file name (pre assigned file name can be "textstring123"</p></li>
  <li><p>After the workbook is saved the workbook should open for user to inspect while the old workbook is minimised</p></li>
  </ul>
  
  <p>I am using Excel 2013, in case that is relevant.</p>
  
  <p>The post may seem crude but I have no choice but to seek help from you as I have been breaking my head over this for the last day and a half and without this the rest of my macro project will become a waste. Thank you in advance for and suggestion/advice/ help.</p>
  
  <p>If any other details or clarification is required please do ask.</p>
  
  <p>I have added my lines of code that I have made but doesnt seem to work properly.</p>
  
  <pre><code>Sub Macro6()
  '
  ' Macro6 Macro
  ' Save as
  ''
  Dim varResult As Variant
  Sheets(Array("sheet1", "sheet2", "sheet3")).Copy
  varResult = Application.GetSaveAsFilename(FileFilter:= _
               "Excel Files *.xls", FileFormat:=-57, Title:="Save File", _
              InitialFileName:=ActiveWorkbook.Path \ Textstring123.xls)
  If varResult &lt;&gt; False Then
  ActiveWorkbook.SaveAs Filename:=varResult, _
  FileFormat:=xlWorkbookNormal
  
       Exit Sub
      End If
  
  End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/BWY7x.png" alt="Highlighted in yellow is the line where debugger gives runtime error"></p>