VBマクロで教えて下さい。

質問

下記VBマクロで上書きしない時はマクロを終了させたいのですがこ指導をお願いします。
Sub Macro2()
' Macro2 Macro
' マクロ記録日 : 2012/9/3  ユーザー名 : HA社

   ChDir "C:\Documents and Settings\6464552\デスクトップ"
   ActiveWorkbook.SaveAs Filename:= _
       "C:\Documents and Settings\6464552\デスクトップ\直送先部品出庫伝票.xls", FileFormat:= _
       xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
       , CreateBackup:=False
 Range("D42:E49").Select
   Selection.ClearContents
   Range("I32:J32").Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
   ActiveWorkbook.SaveAs Filename:= _
       "C:\Documents and Settings\6464552\デスクトップ\PPSC部品出庫伝票.xls", FileFormat:= _
       xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
       , CreateBackup:=False
   Application.Quit
End Sub

回答No.1

o_chi_chi · ベストアンサー

下記でどうでしょう

ただこの場合、"いいえ"も"キャンセル"も同じ動作をします。
---
Sub Macro2()

ChDir "C:\Documents and Settings\6464552\デスクトップ"　

On Error GoTo Exit_Sub
ActiveWorkbook.SaveAs Filename:= _
"D:\work\直送先部品出庫伝票.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Range("D42:E49").Select
Selection.ClearContents
Range("I32:J32").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

On Error GoTo Exit_Sub
ActiveWorkbook.SaveAs Filename:= _
"D:\work\PPSC部品出庫伝票.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit

Exit_Sub:
Exit Sub
End Sub
---

きちんと書きたいなら下記参照

参考URL：

http://vbaexcel.seesaa.net/article/148416890.html