Actually, you can simplify that 2nd macro I gave you as follows:

For Each c In Selection.CurrentRegion.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c