Copy the following macro:
Sub Change_Case()
Dim ocell As Range
Dim 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
CTRL+C (shortcut for Copy)
Go to Excel. Press ALT+F11 (same method: press and hold the ALT key, press
the F11 key and release both). You are now in the Visual Basic Editor (VBE).
From the menu bar, choose Insert>Module. There should now be a blank module
sheet in front of you. Click in it and then press CTRL+V (same method (this a
shortcut for Paste). You should now see the text of the function in the
Module. Press ALT+F11 again to return to your Excel worksheet.
To run the module, first select (highlight) the data you want to change
case. Then go to TOOLS MACRO and highlight the macro titled
"Module7.Change_Case" (by the way, it probably won't be named Module7... it
will number sequentially to whatever).