Making text in a selection start with a capital letter

[chadski778]

I have a selection of cells and I would like to make the text within each cell of the selection start with a capital letter

Can you help please?

 

[Yahya]

try this

Sub Test()
Dim c As Range
For Each c In Selection
    c.Value = WorksheetFunction.Proper(c.Value)
Next c
End Sub

 

[chadski778]

It works great

Thanks