엑셀 vba msgbox, vbYesNo, Dim

Sub 초기화() Dim StrAns As String     StrAns = MsgBox("내용이 삭제됩니다. 계속 진행하시겠습니까?", vbYesNo + vbDefaultButton2, "초기화")          If StrAns = vbYes Then         Range("R5:Z105").ClearContents         Range("R5").Select         MsgBox "모두 삭제 되었습니다."     End If End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)     If MsgBox("정말 닫겠습니까?", vbYesNo) = vbNo Then         MsgBox "엑셀 작업을 조금 더 진행합니다."         Cancel = True     Else         MsgBox "굿바이~!"     End If End Sub