Excel 阻止工作簿关闭

我使用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

---

将关闭事件移动到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

---

将关闭事件移动到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

请更正“Anything”的拼写。“任何事情”都是错误的！请更正“Anything”的拼写。“任何事情”都是错误的！