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