Sub TextCon()
'code by Ivan F. Moala
    Dim ocell As Range, ans As String
    
    ans = Application.InputBox("Type in Letter" & vbCr & _
        "(L)owercase, (U)ppercase, (S)entence, (T)itles ")
    If ans = "" Then Exit Sub
    
    For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
        Select Case UCase(ans)
            Case "L": ocell = LCase(ocell.Text)
            Case "U": ocell = UCase(ocell.Text)
            Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
                LCase(Right(ocell.Text, Len(ocell.Text) - 1))
            Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
        End Select
    Next

End Sub