Excel 2003.

Select all text cells with text and get Proper Case.

Is there a built in way to Proper Case text?

Or how do I do it?



--- news://freenews.netfront.net/ - complaints: ---

Hi,

Am Fri, 15 Nov 2013 10:53:11 -0800 schrieb OldGuy:

Select all text cells with text and get Proper Case.

try:

Sub Makro1()
Dim rngC As Range

With ActiveSheet
For Each rngC In .UsedRange.SpecialCells(xlCellTypeConstants, 2)
rngC = WorksheetFunction.Proper(rngC)
Next
End With
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Put this in a standard module of your PERSONAL.XLS and use it anytime
you need to change case...

Sub ProperCase()
Application.ScreenUpdating = False
For Each c In Selection: c.Value = Application.Proper(c.Value): Next
End Sub

Here's a few more in case you're interested in adding a custom menu to
your formatting toolbar:

Sub UpperCase()
Dim c
Application.ScreenUpdating = False
For Each c In Selection: c.Value = UCase(c.Value): Next
End Sub

Sub LowerCase()
Dim c
Application.ScreenUpdating = False
For Each c In Selection: c.Value = LCase(c.Value): Next
LCase(Mid(c.Value, 2)): Next
End Sub

Sub SentenceCase()
Dim c
Application.ScreenUpdating = False
For Each c In Selection.Cells
s = c.Value
Start = True
For i = 1 To Len(s)
Ch = Mid(s, i, 1)
Select Case Ch
Case ".", "?": Start = True
Case "a" To "z": If Start Then Ch = UCase(Ch): Start = False
Case "A" To "Z": If Start Then Start = False Else Ch =
LCase(Ch)
End Select
Mid(s, i, 1) = Ch
Next
c.Value = s
Next
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion



---
This email is free from viruses and malware because avast! Antivirus protection is active.
http://www.avast.com