Philip,

Here is a simple procedure. Select the cells then run it, it should be
self-explanatory.

Sub ChangeCase()
Dim ans
ans = InputBox("Which type:" & vbNewLine & _
"1 - Upper case" & vbNewLine & _
"2 - Lower case" & vbNewLine & _
"3 - Proper Case" & vbNewLine & _
"4 - Sentence case")
If ans = 1 Or ans = 2 Or ans = 3 Or _
ans = 4 Then
ChangeData CLng(ans)
Else
MsgBox "Invalid selection, try again with a value 1-4"
End If
End Sub

Private Sub ChangeData(pzType As Long)
Dim cell As Range

For Each cell In Selection
With cell
If Not cell.HasFormula Then
Select Case pzType
Case 1: .Value = UCase(.Value)
Case 2: .Value = LCase(.Value)
Case 3: .Value = Application.Proper(.Value)
Case 4:
If Len(.Value) > 0 Then
.Value = Left(.Value, 1) & _
LCase(Right(.Value, Len(.Value) - 1))
End If
End Select
End If
End With
Next cell
End Sub

--
HTH

Bob Phillips

"Philip" <Philip@discussions.microsoft.com> wrote in message
news:DC881F7E-EC1C-4FC0-A7FA-E169772A6757@microsoft.com...
> Hello Friends
>
> There is an immediate need at my work place where I need to convert huge
> amount of data into different cases like proper, lower, upper and
sentence.
> If there is any freeware that lets me do all of the above please advice. I
> would also love to know how to write such programmes in VBA for Excel as
an
> interest(specially sentence case).
>
> Thank you
>
> Philip Jacob
> Senior Executive Quality Appraisal
> First American Corporation