Excel: Cap everyword in each cell of a column - macro issue

Need help with this: I want to cap the first letter of every word within a cell, NOT just the first word. =proper(A) doesn't work for me because if a word has an 's at the end such as Physician's, it will also cap that s so it ends up as Physician'S. The following program works great for me with one problem. It caps each word correctly but I have to hit escape to get it to stop working and go on to other functions otherwise cannot stop it from continuing on after it does the job. Can someone help me find the brakes to make it stop spinning? Sub ToProperA() Dim a As Range For Each a In Selection a.Value = StrConv(a.Value, vbProperCase) Next a End Sub

This question generated 24 answers. To proceed to the answers, click here.

This thread is current as of August 22, 2014.

For more resources for Microsoft Excel