Excel Visual Basic for Applications online training

This page has 0 threads | Add post

Finding our tutorials useful? Please consider helping us to share more!

Module 5 - Messages and User Inputs

Lesson 5.2 - Capturing the User Response

Topic 5.2.4 - Setting a Default Button

When a message box is displayed you can press Enter on the keyboard to click its default button. The default button will usually be the left-most one of the set:

Connoisseurs of 1980s movies will appreciate the importance of not accidentally choosing Yes when asked this question by a computer...

Files Needed

You can click here to download the file needed for this part of the lesson.

Completed Code

You can click here to download a workbook containing the sample code.

Setting a Default Button

You can set a different button as the default by adding a constant in the Buttons parameter of a message box. In a new workbook, insert a module and create a subroutine called DefaultButton. Add code to display a message box as shown below:

You can add a default button option to the Buttons parameter by adding it to the choice of buttons with the + symbol.

Including an Icon

You can combine a choice of default button with a choice of icon:

Specify your choice of buttons, default button and icon in the Buttons parameter.

Running the above code displays a message box which resembles the one shown below:

The only winning move is not to play.

To practise setting a default button on a message box:

Using any workbook, add a new subroutine called IfAtFirst.
Add code which displays a message box with a customised prompt, icon and buttons:

Sub IfAtFirst()

MsgBox _

"If at first you don't succeed...", _

vbQuestion + vbAbortRetryIgnore

End Sub

Extend the code so that the message box defaults to the Retry button:

Sub IfAtFirst()

MsgBox _

"If at first you don't succeed...", _

vbQuestion + vbAbortRetryIgnore + vbDefaultButton2

End Sub

Run the subroutine to check that your message appears as expected:

Feel free to set one of the other buttons as the default if you have a different attitude to failure.

Save and close the workbook.

This page has 0 threads

Add a new post

Head office

Kingsmoor House

Railway Street

GLOSSOP

SK13 2AA

London

Landmark Offices

99 Bishopsgate

LONDON

EC2M 3XD

Manchester

Holiday Inn

25 Aytoun Street

MANCHESTER

M1 3AE

Site map

Terms & Conditions

Book any course as classroom, onsite or online training, or as one-to-one consultancy

Free resources

Paid services

Getting help

Where we are

Where you are

Online

Transparent reviews

Delivery of courses

Nicer to work with

Reliable and established

Our training courses

C#

Excel

MySQL

Power Apps

Power Automate

Power BI and DAX

Python

Report Builder

SQL

SQL Server

VBA Macros

Other training resources

Blogs

Exercises

YouTube tutorials

YouTube shorts

Test your skills

Consultancy

Courseware

Self-paced courses

Newsletters

Publications

Our training venues

London

Manchester

Across the UK

At your site

Online

Why we are different

Hundreds of published reviews

Small class sizes

Outstanding courseware

Online classroom

(Almost) no cancellations

Wise Owl trainers only

Genuine integrity

Invoices after training

30+ years of Wise Owl

Our top 100 clients

MODULES

LESSONS

TOPICS

Files Needed

Completed Code

Setting a Default Button

Including an Icon

Head office

London

Manchester