Cell Formatting

D

Db1712

Working in Excel 2000; Is there a way to format a cell to return prope
text.
Example: you enter george washington, the cell corrects the text t
George Washington.

Thanks for any assistance in this matter
 
P

Peo Sjoblom

No, but you can use a macro, right click the sheet tab where you want this
and select
view code, paste the below

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Column > 3 Then Exit Sub
For Each R In Target.Cells
If R.HasFormula Then
Application.DisplayAlerts = False
R.Formula = "=PROPER(" & Mid(R.Formula, 2) & ")"
Else
R.Value = Application.Proper(R.Value)
Application.DisplayAlerts = True
End If
Next
End Sub

will do this from column A to C, if you want more change >3 to something
greater,

--
Regards,

Peo Sjoblom

(No private emails please, for everyone's
benefit keep the discussion in the newsgroup/forum)
 
Top