Info

'// You need to select a range to alter first! Again:

Ans = Application.InputBox("[L]owercase" & vbCr & "[U]ppercase" & vbCr & _

"[Sjentence" & vbCr & "[T]itles" & vbCr & "[C]apsSmall", _ "Type in a Letter", Type:=2)

If Ans = "False" Then Exit Sub

If InStr(1, "LUSTC", UCase(Ans), vbTextCompare) = 0 _ Or Len(Ans) > 1 Then GoTo Again

On Error GoTo NoText If Selection.Count = 1 Then Set RgText = Selection

Else

Set RgText = Selection.SpecialCells(xlCellTypeConstants, 2) End If

On Error GoTo 0

For Each oCell In RgText Select Case UCase(Ans)

Case Case Case

0 0

Post a comment