Text Case

Posted by Gary Hodges on October 28, 2001 4:44 PM

How do I convert multiple cells of text to Upper/Lower case from all upper case using the 'PROPER' command. I can only do one cell at a time.

Thanks

Posted by JAF on October 29, 2001 3:30 AM

Gary

The following macro will convert to "Proper" all text in the selection.

Sub Change_To_Proper()
Dim c As Range
For Each c In Selection
c = Application.Proper(c)
Next c
End Sub

JAF