Here I suggest you a solution with macro
Let us suppose that the names are in column A of sheet1 then,

1.Right click on toolbar check the control box
2.Add a command button to your sheet
3.Double click the button to open code window and paste following codes

#
Private Sub CommandButton1_Click()
Dim row As Integer, col As Integer
row = 1
col = 1

While Sheet1.Cells(row, col).Value < ""
Sheet1.Cells(row, col).Value = UCase(Left(Sheet1.Cells(row, col).
Value, 1)) & LCase(Mid(Sheet1.Cells(row, col).Value, 2, Len(Sheet1.Cells(row,
col).Value)))

row = row + 1
Wend
End Sub
#

Now on clicking the button, you get the job done!


Hope this works

Have a nice time

Chris
------
Convert your Excel spreadsheet into an online calculator.
http://www.spreadsheetconverter.com

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200902/1