Peter.
Sub MakeProper()
Set rng1 = ActiveSheet.UsedRange.SpecialCells(xlConstants, xlTextValues)
For Each cell In rng1
cell.Value = Application.Proper(cell.Value)
Next cell
End Sub
Regards,
Tom Ogilvy
Peter Sowerby wrote in message ...
HTH, David McRitchie
My Excel Pages: http://members.aol.com/dmcritchie/excel/excel.htm