proper formula

[ali zaib]

i want to vba code for proper all cells from a1 to a100 i mean apply proper formula in a1 to a100 formula did not show but when i enter a description in these cells format show in proper

 

[CWatts]

This will proper case the values in the cell, but did you need it to automatically run when you entered data, or did you need the PROPER formula to be placed in the cell?

Sub ProperCaseA()
For Each c In Range("A1:A100")
    c.Value = StrConv(c.Value, vbProperCase)
Next
End Sub