excel - 特定のシートを新しいブックにコピーします

Question

シート2をワークブック1からコピーして新しいワークブックを作成し、そのシートを新しいワークブックに貼り付けるマクロを作成するにはどうすればよいでしょうか。シート1の下部に追加したボタンをクリックすると、ワークブック1になります。

編集 このコードはアクティブなシート（私が望むシートではありません）をコピーし、名前を付けて保存するように求めることで残りを完全に実行します。これはクールですが、アクティブなシートではなくシート2をコピーする必要があります。

Sub GetQuote()

   Dim activeWB As String
   Dim thisSheet As String

   activeWB = ActiveWorkbook.Name
   thisSheet = Workbooks(activeWB).ActiveSheet.Name
   Workbooks.Add
   Workbooks(activeWB).Sheets(thisSheet).Copy _
   Before:=ActiveWorkbook.Sheets(1)
   Application.Dialogs(xlDialogSaveAs).Show
   ActiveWorkbook.Close

End Sub