Forum Discussion
Macro in Excel
Good afternoon, I just tried to write my first macro. I get a lot of spreadsheets with all text in upper case. I want it to be converted into first letter upper case and rest lower case. I managed t...
Hi Jörg,
try this:
Sub ConvertToUpper()
Dim rngCell As Range
For Each rngCell In Selection
rngCell.Value = UCase(rngcell.value)
Next rngCell
End Sub
Sub ConvertToLower()
Dim rngCell As Range
For Each rngCell In Selection
rngCell.Value = LCase(rngcell.value)
Next rngCell
End Sub
Best regards
Bernd
https://vba-tanker.com/
Bernd good morning,
Thanks for the quick reply. I will let you know whether I killed my computer...
Joerg
It sounds like you want to change to proper case. Try this. It also checks for any cells that have formulas (can cause problems). Select your cells & run the macro.
Sub ProperCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = Application.Proper(Rng.Value)
End If
Next Rng
End Sub
