msg box within a macro

[Karine]

Hello,

I have a macro and am trying to link a msg box to it. The msg box I have is,

Sub Message_box()

Msg = "If this is the correct date selected click Yes to continue."
Title = "CORRECT DATE SELECTED"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)


If Response = vbNo Then
MsgBox = "You Clicked NO. Please selected correct date"
Exit Sub 'Quit the Macro"
End If

MsgBox = "Your Data has been updated"
End Sub

I am trying to put that msg box with my macro but when i click my macro no
msg box pops up, I'm not clear how i should link the msg box with the macro.
Any Help would be greatly appreciated.

Thanks,
Karine

 

[Dave Peterson]

Sometimes, it's easier to just plop those strings directly into the msgbox
line--instead of making variables for each.

I'd use something like:

Option Explicit
Sub YourMacro()
Dim Response as long
response = msgbox(Prompt:="If this is the correct date " _
& " selected click Yes to continue.", _
title:="CORRECT DATE SELECTED", _
buttons:=vbYesNo + vbQuestion)

if response = vbno then
MsgBox Prompt:="You Clicked NO. Please selected correct date"
Exit Sub 'Quit the Macro"
end if

'this is where the rest of your code to do the real work would go

End Sub

 

[Don Guillett]

Post your macro

 

[J. Sperry]

When I fixed your code, changing
MsgBox = ...
to
MsgBox(...)
it worked fine. (using Excel 2003)