Sub CaseChangerDialog()
Dim CaseDialog As Object
    Dim Lower As Object
    Dim Upper As Object
    Set CaseDialog = DialogSheets("CaseDialog")
    Set Lower = CaseDialog.OptionButtons("Lower")
    Set Upper = CaseDialog.OptionButtons("Upper")
    If CaseDialog.Show Then
    For Each Item In Selection
        If Lower = xlOn Then
            Item.Value = LCase(Item.Value)
        ElseIf Upper = xlOn Then
            Item.Value = UCase(Item.Value)
        Else
            Item.Formula = Application.Proper(Item)
        End If
    Next Item
    End If
End Sub
