This could be dangerous code.

There may be formulas in the usedrange.

These will all get changed to values only.

Amend to this

Sub changer()
Dim cell
For Each cell In ActiveSheet.UsedRange
cell.Formula = WorksheetFunction.Proper(cell.Formula)
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 02 Aug 2007 01:43:09 -0700, "
wrote:

Actually, the VBA for this is VERY easy

Sub changer()
Dim cell
For Each cell In ActiveSheet.UsedRange
cell.Value = WorksheetFunction.Proper(cell.Value)
Next
End Sub