this may prove useful
Sub ChangeCase()
Application.ScreenUpdating = False
Dim r As Range
nCase = UCase(InputBox("Enter U for UPPER" & Chr$(13) & " L for
lower" & Chr$(13) & " Or " & Chr$(13) & " P for Proper", "Select
Case Desired"))
Select Case nCase
Case "L"
For Each r In Selection.Cells
If r.HasFormula Then
r.Formula = LCase(r.Formula)
'R.Formula = R.Value
Else
r.Value = LCase(r.Value)
End If
Next

Case "U"
For Each r In Selection.Cells
If r.HasFormula Then
r.Formula = UCase(r.Formula)
'R.Formula = R.Value
Else
r.Value = UCase(r.Value)
End If
Next

--
Don Guillett
SalesAid Software

"Harvey" wrote in message
...
In a spreadsheet that I made, there is a column with all types of text:
all
upper, all lower, proper. It could be a long task to re-type each cell.

I'd like to convert this entire column to all proper. How can this be
easily
done?

Thanks in advance for your help.