MsgBox - Change Default Button
Posted by JAF on April 20, 2001 2:26 AM
I have a piece of code that uses a Message Box to obtain user clarification that they wish to run a certain macro (code below) that clears out data on several worksheets.
msg = ""
msg = msg & "Running this macro will clear ALL data from the Input & Scottish" & vbCrLf
msg = msg & "sheets and all Shortfall Repaid cases from the Shortfall sheet." & vbCrLf & vbCrLf
msg = msg & "Are you CERTAIN you want to continue???"
ans = MsgBox(msg, vbCritical + vbYesNo, "Are you SURE?????")
Select Case ans
MsgBox "run code"
MsgBox "Do NOT run code"
Using this method, the "Yes" button on the Message Box is the default button and I want the "No" button to be the default because I don't want a user to press the return button and accidentally accept the default which would clear out all data.
I realise that I could rephrase the question so that selecting the default of "Yes" leaves the data intact or that I could create my own User Form to ask the same question, but I like the convenience of MsgBox.
So, is there any way to change the default button on the Message Box created above from "Yes" to "No"??
Over to you.....