Arne,

Here we go

Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "D").Value < Application.Proper(Cells(i, "D").Value)
Then
Cells(i, "E").Value = "x"
Cells(i, "D").Value = Application.Proper(Cells(i, "D").Value)
End If
Next


--

HTH

Bob Phillips

"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