What happened to "Change Case"?

[Deinekes]

Where is the "Change Case" menu item? Did Microsoft actually remove a useful
feature across version updates, or am I just paranoid?

 

[Nick Hodge]

That's not an Excel feature. It is in Word, but not Excel unless it is by
way of add-in or code

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
[email protected]
web: www.nickhodge.co.uk
blog (non-tech): www.nickhodge.co.uk/blog/

 

[Nick Hodge]

Or function of course for lower. Proper and UPPER case

=UPPER(A1)
=LOWER(A1)
=PROPER(A1)

But they're still there right up to 2007

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
[email protected]
web: www.nickhodge.co.uk
blog (non-tech): www.nickhodge.co.uk/blog/

 

[Deinekes]

Thanks for the answer, folks! You were right: paranoia. I checked it out
myself, as well. Word 2003 -- yes, Excel 2003 -- no. The fact that I use
OpenOffice as well -- and it IS a Format menu item there -- explains the
source of my confusion. Looks like I need to stop comparing Excel to free
software.

Thanks again for the quick response.

 

[PlayingToAudienceOfOne]

Try this macro:
Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

 

[Deinekes]

Thanks!

Try this macro:
Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

 

[Spikessong]

How do I take the macro you gave me and put it into my Excel program?

 

[Fred Smith]

The first think you do is keep your reply in the same thread you started.
Then people will know who you are talking to.

Regards,
Fred.

 

[LouW]

great macro! saved me alot of time...
might i suggest wrapping the select case with "If ocell <> "" Then", "elseif"
so that you can sellect a range that includes empty cells...