Помогите разобраться с MsgBOX

[Bu$ter]

Мужики, помогите не пойму синтаксис функции msgbox. Смысл такой - в начале выполнения кода должно вылететь окно с выбором ДА/НЕТ
если выбор ДА - то происходит выполнение маркоса, если нет - то предотвращение выполнения.
Там, где вопросы не знаю что назначить для событий "vbYes" и "vbNo"....

Private Sub attention()
PushButton = MsgBox("Save old?", vbYesNo, "Attention")
If PushButton = vbYes Then

???????????????

ElseIf PushButton = vbNo Then

????????????????

End If
End Sub


Public Sub 1()
attention
2
3
End Sub
  
    
    

Private Sub 2()

    Sheets("a").Select
Range("j5:l367,o5:q367,t5:v367,y5:Aa367,ad5:af367,Ai5:Ak367,An5:Ap367,As5:Au367,Ax5:az367,Bc5:Be367,Bh5:Bj367,Bm5:Bo367,Br5:Bt367,Bw5:By367,Cb5:Cd367,Cg5:Ci367,Cl5:Cn367,Cq5:Cs367,Cv5:Cx367,Da5:Dc367,Df5:Dh367,dk5:dm367,dp5:dr367,du5:dw367").Select
    Selection.ClearContents
    Selection.Interior.ColorIndex = xlNone
    Selection.ClearComments
    
End Sub
Private Sub 3()

    Sheets("b").Select
    Range("K5:M202,P5:R202,aj5:al202,u5:w202,ao5:aq202,z5:ab202, at5:av202,ae5:ag202,ay5:ba202,bd5:bf202,bi5:bk202,bn5:bp202,bs5:bu202,bx5:bz202,cc5:ce202").Select
    Selection.ClearContents
    Selection.Interior.ColorIndex = xlNone
    Selection.ClearComments
    
   End Sub

[VictorM]

в начале выполнения кода "вылетает" окно с выбором ДА/НЕТ
если выбор ДА - то происходит выполнение макросов 2 и 3, если НЕТ - выход

Private Sub attention()
If MsgBox("Save old?", vbYesNo, "Attention") = vbNo Then
 Exit Sub
End If
2
3
End Sub

или я не так понял?

[IgorGO]

задаем ВБА вопрос MsgBox смотрим ссылку Constants, там все написано.
все vb... - это константы,
вот часть параметров, которые можно передать в MsgBox, первым параметром должна быть строка (это и будет текст сообщения), второй параметр это число в зависимости от значения этого числа будут отображены некоторые кнопки в окне сообщения,
vbOKOnly 0 OK button only (default)
vbOKCancel 1 OK and Cancel buttons
vbAbortRetryIgnore 2 Abort, Retry, and Ignore buttons
vbYesNoCancel 3 Yes, No, and Cancel buttons
vbYesNo 4 Yes and No buttons
vbRetryCancel 5 Retry and Cancel buttons
собственно в хелпе все написано
MsgBox может быть вызван как процедура и как функция, когда он вызван как функция, то возвращает значение в зависимости от того какие кнопки присутствовали и какую нажали (какой кнопкой закрыли окно)
vbYes 6 Yes button pressed
vbNo 7 No button pressed

Предполагаю, что после
If PushButton = vbYes Then
следует писать код, который что-то старое сохранит

[Bu$ter]

VictorM - РЕСПЕКТ!!! Не знал команды остановки макроса ("exit sub")
IgorGO - большое спасибо - инфа помогла....