Microsoft Office

Creating Custom Excel Add-Ins 45
Private Sub OKButton_Click()
CaseChangerDialog.Hide
Application.ScreenUpdating = False
‘ 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, vbProperCase)
End If
Next cell
End If
Unload UserForm1
End Sub
The following procedure is executed if the user clicks the Cancel button.
Private Sub CancelButton_Click()
Unload UserForm1
End Sub
Testing the workbook
Before you convert this workbook to an add-in, it’s a good idea to test it. You should test it when a different
workbook is active in order to simulate what happens when the workbook is an add-in. Remember that an
add-in is never the active workbook, and it never displays any of its worksheets.
To test it, I saved the workbook, closed it, and then reopened it. With the workbook open, I then activated
a different workbook, selected some cells that contained text and then pressed Alt+F8 to display the Macros
dialog box. I executed the ShowUserForm macro and tried all of the options.
777