Sub Upper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = UCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub
Sub Lower()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = LCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub
Sub Proper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = Application.Proper(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub
Fine as far as it goes, but remember that in such situations a
case-sensitive comparison with the lower case alternative would presumably
not succeed. You are presumably just seeing the upper case letters
*displayed* the same as lower case.
True enough, but the OP only asked about displaying the information, not
making comparisons. My own approach would be to make sure that entries
are made using a mix of upper and lower case as needed, but that's not
what was asked.
Bill
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.