Ever thought of just making a couple written macros and applying them to
your own toolbar, or menubar?
The following code will change a cell to UPPER, lower or Proper
depending on how many times you click the Icon you assign it too.
Sub SwitchCase()
Dim Cell As Range
For Each Cell In Selection
Select Case Cell
Case LCase(Cell) 'It's lowercase
Cell = UCase(Cell)
Case UCase(Cell) 'It's uppercase
Cell = Application.Proper(Cell)
Case Else 'It's neither upper nor lower
Cell = LCase(Cell)
End Select
Next
End Sub
Good Luck!
---
Message posted from
http://www.ExcelForum.com/