Change All Caps to Sentence Case

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


"do" wrote:

May I know how to change a sentence in capitals to only the first letter is
in capital and the rest to lower case