Change text to Proper case

Change text to Proper case

To change text in a selected range to proper case use this code.

Sub ProperCase()
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = strconv(cell.text,vbProperCase)
End If
Next
End Sub

Regards:
KK Bhardwaj
info@bhardwajweb.com
kk43man@gmail.com
+91-9816464547
+91-9736399339
Bhardwaj Web Solutions
www.bhardwajweb.com
Himachal Pradesh