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