Sub ChangeCAPS()
Dim cell as Range
For each cell In Selection
If Not cell.HasFormula Then
cell.Value = LCase(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Harishanker.Ch" wrote in message
...
Hi,
This is Harishanker.
I have one Doubt in Excel..Pls clarify me as early as possible...How to
change the CAPS letters to small letters ?Is there any Keyboard short cut
key
is there?I f there in no Short key ,then how to change ?Give me a detailed
Procedure for that.If there is any chance,Pls give me Examples how to
change?Thank you all ....

Thanks & Regards,

Harishanker.Ch