There is no built in way to do this. You can use the following
macro to do this.

Sub AAA()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeConstants, xlTextValues)
Rng.Value = UCase(Left(Rng.Text, 1)) & Mid(Rng.Text, 2)
Next Rng
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"kroberts" wrote in message
...
I have an excel shhet that is all caps and I would like to
change only the
first letter to caps without retyping the whole sheet...is this
possible?