Ron,
Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)
You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.
I've also included a Lower Case version for you.
Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub
Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub
This should give you what you're looking for.
Paul
|