Simple VBA procedures in Excel - Real Business Scenario

Scenario Mode

👤 Your Role: You are an office assistant learning to automate tasks in Excel.

📋 Request: Your manager wants you to create a simple VBA procedure that clears the contents of a specific range and then fills it with a welcome message.

📊 Data: You have a worksheet with some text and numbers in cells A1 to A5.

🎯 Deliverable: A VBA procedure that clears cells A1 to A5 and writes 'Welcome!' in cell A1.

Sample Data

A
Old Data 1
Old Data 2
Old Data 3
Old Data 4
Old Data 5

1

Step 1: Open the Excel workbook and press Alt + F11 to open the VBA editor.

Expected Result

VBA editor window opens.

2

Step 2: In the VBA editor, insert a new module by clicking Insert > Module.

Expected Result

A new blank module appears for code entry.

3

Step 3: Write a VBA procedure named ClearAndWelcome that clears cells A1 to A5 and writes 'Welcome!' in cell A1.

Sub ClearAndWelcome() Range("A1:A5").ClearContents Range("A1").Value = "Welcome!" End Sub

Expected Result

Procedure code is entered without errors.

4

Step 4: Close the VBA editor and return to the Excel worksheet.

Expected Result

Back to Excel sheet with original data visible.

5

Step 5: Run the ClearAndWelcome procedure by pressing Alt + F8, selecting ClearAndWelcome, and clicking Run.

Expected Result

Cells A1 to A5 are cleared and cell A1 shows 'Welcome!'.

Final Result

A
Welcome!

✓The VBA procedure successfully clears the specified range.

✓The welcome message appears in the first cell after running the macro.

✓This simple automation saves time by replacing manual clearing and typing.

Bonus Challenge

Modify the VBA procedure to also change the font color of the welcome message to blue.

Show Hint

Use Range("A1").Font.Color = RGB(0, 0, 255) inside the procedure.

Practice

1. What does a simple VBA procedure in Excel always start with?

easy

A. Sub

B. Function

C. Begin

D. Start

Solution

1. Step 1: Understand VBA procedure structure

   A simple VBA procedure always begins with the keyword Sub to define a subroutine.

2. Step 2: Confirm the correct starting keyword

   The procedure does not start with Function, Begin, or Start, only Sub.

3. Final Answer:

   Sub -> Option A

4. Quick Check:

   Simple VBA procedures start with Sub [OK]

Hint: Remember VBA subs always start with 'Sub' keyword [OK]

Common Mistakes:

• Confusing Sub with Function
• Using Begin or Start instead of Sub
• Forgetting to write Sub at the start

2. Which of the following is the correct way to end a simple VBA procedure?

easy

A. End Function

B. Stop

C. End Sub

D. Exit Sub

Solution

1. Step 1: Identify the correct ending for a Sub procedure

   A simple VBA procedure defined with Sub must end with End Sub.

2. Step 2: Differentiate from other endings

   End Function ends a function, Stop pauses code, and Exit Sub exits early but does not end the procedure.

3. Final Answer:

   End Sub -> Option C

4. Quick Check:

   Simple VBA procedures end with End Sub [OK]

Hint: End VBA subs with 'End Sub' exactly [OK]

Common Mistakes:

• Using End Function for subs
• Confusing Exit Sub with End Sub
• Writing Stop instead of End Sub

3. What will the following VBA code do when run?

Sub ShowMessage()
  MsgBox "Hello, Excel!"
End Sub

medium

A. Save the workbook automatically

B. Clear all cells in the worksheet

C. Change the background color of cells

D. Display a message box saying 'Hello, Excel!'

Solution

1. Step 1: Analyze the MsgBox command

   The code uses MsgBox to show a popup message with the text "Hello, Excel!".

2. Step 2: Confirm no other actions are present

   There are no commands to clear cells, change colors, or save the workbook.

3. Final Answer:

   Display a message box saying 'Hello, Excel!' -> Option D

4. Quick Check:

   MsgBox shows a popup message [OK]

Hint: MsgBox always shows a popup message [OK]

Common Mistakes:

• Thinking MsgBox clears cells
• Assuming MsgBox changes colors
• Believing MsgBox saves files

4. Identify the error in this VBA procedure:

Sub ClearCells()
  Range("A1:A10").ClearContents
End Function

medium

A. Procedure ends with End Function instead of End Sub

B. Missing parentheses in ClearContents

C. Range syntax is incorrect

D. Sub keyword is misspelled

Solution

1. Step 1: Check procedure start and end keywords

   The procedure starts with Sub but incorrectly ends with End Function.

2. Step 2: Confirm correct ending for Sub procedures

   Sub procedures must end with End Sub, not End Function.

3. Final Answer:

   Procedure ends with End Function instead of End Sub -> Option A

4. Quick Check:

   Sub procedures end with End Sub [OK]

Hint: Match Sub with End Sub, not End Function [OK]

Common Mistakes:

• Ending Sub with End Function
• Adding unnecessary parentheses to ClearContents
• Incorrect Range syntax
• Misspelling Sub keyword

5. You want to write a VBA procedure that changes the background color of cells A1 to A5 to yellow. Which code snippet correctly does this?

hard

A. Sub ColorCells()
Cells(1,1).Color = vbYellow
End Sub

B. Sub ColorCells()
Range("A1:A5").Interior.Color = vbYellow
End Sub

C. Sub ColorCells()
Range("A1:A5").Color = Yellow
End Sub

D. Sub ColorCells()
Range("A1:A5").Interior.ColorIndex = "Yellow"
End Sub

Solution

1. Step 1: Understand how to set cell background color in VBA

   Use Range(...).Interior.Color with a color constant like vbYellow.

2. Step 2: Check each option for correct syntax

   Sub ColorCells() Range("A1:A5").Interior.Color = vbYellow End Sub uses correct syntax. Sub ColorCells() Range("A1:A5").Color = Yellow End Sub uses .Color without Interior and 'Yellow' without vb prefix. Sub ColorCells() Cells(1,1).Color = vbYellow End Sub changes only one cell and uses .Color incorrectly. Sub ColorCells() Range("A1:A5").Interior.ColorIndex = "Yellow" End Sub uses ColorIndex with a string, which is invalid.

3. Final Answer:

   Sub ColorCells() Range("A1:A5").Interior.Color = vbYellow End Sub -> Option B

4. Quick Check:

   Use Interior.Color = vbYellow to color cells [OK]

Hint: Use Interior.Color = vbYellow to color cells [OK]

Common Mistakes:

• Using .Color without Interior
• Passing color name as string instead of constant
• Changing only one cell instead of range
• Using ColorIndex with string value