Sub ChangeCase()
Dim rng As Range
Dim cell As Range
Set rng = Selection
For Each cell In rng
cell.Value = UCase(Left(cell.Value, 1)) & LCase(Right(cell.Value, Len(cell.Value) - 1))
Next
End Sub
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
TRUSTED BY
You can use this formula for A1
=LEFT(A1,1) & RIGHT(A1,LEN(A1)-1)