View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default 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