シートだけを保存したいのですが？

質問

はじめましてマクロ初心者です。
検索しましたがわからなかったので、質問させていただきます。

保存をキャンセルすると新規ブックができてしまいます。
キャンセルした時に新規ブックを作りたくないのですが、教えてください。
Sub シート保存()
Dim Answer3
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant

Answer3 = MsgBox("本当に保存しますか？", vbYesNo)
If Answer3 = vbYes Then
Sheets("保存シート").Select
Application.CutCopyMode = False
Sheets("保存シート").Copy
Else
MsgBox ("キャンセルしました。")
End If

既定ファイル名 = Range("V8")
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名)
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
Else
ActiveWorkbook.SaveCopyAs 保存ファイル名
End If
End Sub

よろしくお願いします。

回答No.1

keirika · ベストアンサー

Sub シート保存()
Dim Answer3
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant

Answer3 = MsgBox("本当に保存しますか？", vbYesNo)
If Answer3 = vbNo Then
MsgBox ("キャンセルしました。")
Exit Sub
End If

Sheets("保存シート").Select
Application.CutCopyMode = False
Sheets("保存シート").Copy

既定ファイル名 = Range("V8")
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名)
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
ActiveWorkbook.Close (False)
Else
ActiveWorkbook.SaveCopyAs 保存ファイル名
End If
End Sub

ではどうでしょうか。

お礼

できました。
ありがとうございます。