4523756273

Chapter 5: VBA Sub and Function Procedures
73
4. Choose Insert➪Module to insert a new module.
5. Enter the following into the module:
Sub CubeRoot()
Num = InputBox(“Enter a positive number”)
MsgBox Num ^ (1/3) & “ is the cube root.”
End Sub
This procedure asks the user for a number and then displays that number’s
cube root in a message box. Figures 5-1 and 5-2 show what happens when you
execute this procedure.
Figure 5-1:
Using the
built-in VBA
InputBox
function to
get a
number.
Figure 5-2:
Displaying
the cube
root of a
number via
the MsgBox
function.
By the way, CubeRoot is not an example of a good macro. It doesn’t check for
errors, so it fails easily. To see what I mean, try clicking the Cancel button in
the input box or entering a negative number.
Executing the Sub procedure directly
The quickest way to execute this procedure is by doing so directly from the
VBA module in which you defined it. Follow these steps:
1. Activate the VBE and select the VBA module that contains the
procedure.