Vba: adding a message box

[bamaisgreat]

I am showing below a small sample of my code. I am wanting a yes no message box to popup before the rest of the code runs. If yes then code runs if no it cancels out the macro at this time. Im not sure how to add it. Thanks

Sub STOCK_FORM_SEND()

'
'
ActiveSheet.Unprotect
Dim ButtonName As Variant
Dim ButtonNames As Variant

' Change/add button names accordingly
ButtonNames = Array("Button 7", "Button 8", "Button 2")

For Each ButtonName In ButtonNames
ActiveSheet.Buttons(ButtonName).Visible = False
Next ButtonName

Range("H24").Select
Selection.Interior.ColorIndex = 6
ActiveCell.FormulaR1C1 = "OPERATOR CHECKED"
With ActiveCell.Characters(Start:=1, Length:=14).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 18
.Strikethrough = False

 

[VoG]

Try

If MsgBox("Run the code", vbQuestion + vbYesNo) = vbNo Then Exit Sub

 

[bamaisgreat]

Thanks VOG, is there away to change "Microsoft Excel" thats in the left corner to text I need

 

[VoG]

Try like this

If MsgBox("Run the code", vbQuestion + vbYesNo, "Your title here") = vbNo Then Exit Sub

 

[bamaisgreat]

Thanks Peter, Great Help