Microsoft Office

Part VI
Programming Excel with VBA
The next step is to add the code to handle the Click event for the OKButton control. Follow these steps:
1. Select OKButton from the drop-down list at the top of the module. The VB Editor begins a
new procedure called OKButton_Click.
2. Enter the following code. (The first and last statements have already been entered for you by the
VB Editor.)
Private Sub OKButton_Click()
Application.ScreenUpdating = False
‘ Exit if a range is not selected
If TypeName(Selection) “Range” Then Exit Sub
‘ Upper case
If OptionUpper Then
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = StrConv(cell.Value, vbUpperCase)
End If
Next cell
End If
‘ Lower case
If OptionLower Then
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = StrConv(cell.Value, vbLowerCase)
End If
Next cell
End If
‘ Proper case
If OptionProper Then
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = StrConv(cell.Value, bProperCase)
End If
Next cell
End If
Unload UserForm1
End Sub
The macro starts by turning off screen updating, which makes the macro run a bit faster. Next, the code
checks the type of the selection. If a range is not selected, the procedure ends. The remainder of the procedure
consists of three separate blocks. Only one block is executed, determined by which OptionButton is
selected. The selected OptionButton has a value of True. Finally, the UserForm is unloaded (dismissed).
Testing the UserForm
To try out the UserForm from Excel, follow these steps:
1. Activate Excel.
2. Enter some text into some cells.
3. Select the range with the text.
4. Choose Developer ➪ Code ➪ Macros (or press Alt+F8).
730