
Originally Posted by
StephenR
When I replace the slanting double quotes with normal double quotes it works.
Good catch, thanks StephenR!
I had to tweak further before it could work for me too, for example there was an unecessary underscore in the code. For anyone interested in the final working version of the code, see the below.
Sub RespondToMessage()
Dim Reply As Byte
Reply = MsgBox("Please select a button", vbYesNoCancel + vbQuestion, "Respond")
Select Case Reply
Case Is = 6
MsgBox "You selected ‘Yes’", , "Well done!"
Case Is = 7
MsgBox "You selected ‘No’", , "Well done!"
Case Is = 2
MsgBox "You selected ‘Cancel’", , "Well done!"
End Select
End Sub
Bookmarks