ブックを閉じるのを防ぐ

Question

私はあるシートから別のシートにデータをコピーするVBAを持っています。コピーが完了したら、メッセージがポップアップし、「他に何かありますか？」と尋ねます。起こると思われることは、あなたがいいえと言うとき、それは節約して閉じます。はいと答えた場合は、&を特定のシートに保存することになっています。 何が起こっているのは、&が両方の選択肢で閉じることです。私は何かが不足していることを知っていますが、私は何が確実ではない。

私のコード

Msg = "Hey!!! Copying complete!! Any Thing Else?" 

Ans = MsgBox(Msg, vbYesNo) 

Select Case Ans 

    Case vbYes    
     Sheets("Referrals").Select 

    Case vbNo 
     GoTo Quit: 

End Select 

Quit:   
ActiveWorkbook.Close 

End Function 

Answer 1

移動vbNoに近いイベント、それが今ある方法は、それは関係なく、場合に選択されるものを実行しないために発生しています。

Msg = "Hey!!! Copying complete!! Any Thing Else?" 

Ans = MsgBox(Msg, vbYesNo) 

Select Case Ans 

    Case vbYes    
     Sheets("Referrals").Select 

    Case vbNo 
     ActiveWorkbook.Close SaveChanges:=True 

End Select 

End Function