Hi Mike,
Here is a macro that might help. It will toggle through the 3 options of
case each time you run it (ALL UPPER, all lower, All Proper)
Option Explicit
Sub ToggleCase()
Dim rCell As Range
For Each rCell In Selection
Select Case rCell
Case LCase(rCell) 'It's lowercase
rCell = Application.Proper(rCell)
Case UCase(rCell) 'It's uppercase
rCell = LCase(rCell)
Case Else 'It's neither upper nor lower
rCell = UCase(rCell)
End Select
Next
End Sub
Carl Chinn
The Help Desk
"practical office solutions made easy"
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************