Re: Macro in Excel

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

2 Replies

JoergSchmitt
Copper Contributor
Jun 26, 2019
Bernd good morning,
Thanks for the quick reply. I will let you know whether I killed my computer...
Joerg
- Rusty Dane
  Brass Contributor
  Jun 26, 2019
  JoergSchmitt
  
  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

Forum Discussion