title: How do I save a worksheet to a new workbook?
body: <p>I am trying to save a single worksheet to a new workbook (VBA should create a new workbook).</p>
  
  <p>The code is running and the new workbook is popping up with the needed data and the save as dialogue window also opens but when I select the name and save the file it is no where to be found the the new workbook stays open as (Book1 or whatever auto populates).</p>
  
  <p>I would like for a Save As name to auto populate when the dialogue window opens and have it referencing to two cells (i.e. $A$11, $B$11) in the original workbook.</p>
  
  <p>Here is my VBA:</p>
  
  <pre><code>Option Explicit
  
  Sub SaveConsolidatedDemandData()
      ' Macro2 Macro
      'Dim NameFile As Variant
              'With Worksheets("SO1")
              'NameFile = .Range("M3") &amp; "_" &amp; .Range("C11") &amp; "_" &amp; .Range("B22") &amp; ".xls"
      'End With
  
      Application.ScreenUpdating = False
      '
      '
          Sheets("Consolidation").Select
          Sheets("Consolidation").Copy
          Application.GetSaveAsFilename
  
  
      Application.ScreenUpdating = True
  
  End Sub
  </code></pre>