Carl Thank you..This will be good macro practice! Mike >From: "Carl Chinn" <carlc@xxxxxxxxx> >Reply-To: mso@xxxxxxxxxxxxx >To: <mso@xxxxxxxxxxxxx> >Subject: [mso] Re: Excel question >Date: Thu, 23 Sep 2004 05:15:11 -0400 > >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 >************************************************************* _________________________________________________________________ Is your PC infected? Get a FREE online computer virus scan from McAfee® Security. http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963 ************************************************************* 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 *************************************************************