Предотвращение закрытия книги

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