シート名をブック名で保存する
アクティブシートだけのブックにして名前を付けて保存するには次の様にします。
Sub Sample62()
'アクティブシートだけのブックを新規作成する
ActiveSheet.Copy
With ActiveWorkbook
'アクティブブックを指定場所に保存
.SaveAs "C:\Users\Default\Documents\" & ActiveSheet.Name
'保存しないで閉じる
.Close True
End With
End Sub