Permission denied: 'Msgbox'

Question

I am using VBA to create message boxes with Yes/No responses. For one in particular, the message box works fine but any message box I put after this one results in a Permission denied: 'Msgbox" error. My code looks something like this:

if msgbox ("Release this Assessment to the Team Leader?", vbyesno) = vbyes then
   msgbox "Released"
   else
   msgbox "Not released"
end if

So I get the first message box but for either selection (Yes or No) I get the error message. Any idea what may be causing this?

Answer 1

Try this instead:

msgBox ("Release this Assessment to the Team Leader?", vbyesno)
select Case msgBox
    Case "Yes":
        msgBox "Released", vbokonly
    Case "No":
        msgBox "Not released, vbokonly
End Select