Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Proper case
Arne,
Try something like the following: Sub AAA() Dim Rng As Range For Each Rng In Selection.Cells If StrComp(Rng.Text, StrConv(Rng.Text, vbProperCase), _ vbBinaryCompare) < 0 Then Rng(1, 2).Value = "x" Rng.Value = StrConv(Rng.Text, vbProperCase) End If Next Rng End Sub Select the cells to test an then execute the procedure. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "arne" wrote in message ... In column D ther are names and they must be in Proper Cae. I want to loop through these and 1. Set and x in a new column x if the name is not proper case 2. Then set propercase for these Ex: start teD DANA Res Ted x Dana x |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change from upper case to proper case in excel 2002 | Excel Discussion (Misc queries) | |||
Proper Case | Excel Discussion (Misc queries) | |||
excel'03 how to convert a column from upper case to proper case | Excel Discussion (Misc queries) | |||
Excel: How do I change all upper case ss to proper case? | Excel Worksheet Functions | |||
Changing Upper case to Proper Case | Excel Worksheet Functions |