PeterMoran
MIS
Hi,
I have the following macro for changing case in Excel which works fine until I recently tried to use it when I was in Edit mode in a particular cell - nothing happened. Is it possible to modify this macro to be able to be used when in Edit Mode?
Sub CaseChanger()
ShiftCase = ShiftCase + 1
If ShiftCase > 3 Then ShiftCase = 1
For Each Item In Selection
Select Case ShiftCase
Case 1
If Item.HasFormula = False Then
Item.Value = LCase(Item.Value)
End If
Case 2
If Item.HasFormula = False Then
Item.Value = UCase(Item.Value)
End If
Case 3
If Item.HasFormula = False Then
Item.Formula = Application.Proper(Item)
End If
End Select
Next Item
End Sub
Thanks
Peter Moran
I have the following macro for changing case in Excel which works fine until I recently tried to use it when I was in Edit mode in a particular cell - nothing happened. Is it possible to modify this macro to be able to be used when in Edit Mode?
Sub CaseChanger()
ShiftCase = ShiftCase + 1
If ShiftCase > 3 Then ShiftCase = 1
For Each Item In Selection
Select Case ShiftCase
Case 1
If Item.HasFormula = False Then
Item.Value = LCase(Item.Value)
End If
Case 2
If Item.HasFormula = False Then
Item.Value = UCase(Item.Value)
End If
Case 3
If Item.HasFormula = False Then
Item.Formula = Application.Proper(Item)
End If
End Select
Next Item
End Sub
Thanks
Peter Moran