msg box within a macro
 

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

msg box within a macro
 

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

Karine wrote:

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

msg box within a macro
 

Post your macro

"Karine" wrote in message
...
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

msg box within a macro
 

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

"Karine" wrote:

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