Change a word in to Title Case in Excel Cell using Macro

Q : Does anyone have a Macro to change the Title case of every word in an excel cell?

A: enter the following formula:

=PROPER(A1)

Copy down to the last row and then select all of column B and copy it with
Ctrl+C.

Click on cell A1 and then right click on Cell A1 and select PASTE SPECIAL,
click the VALUES check box and click OK to replace all the original values
with there proper name format values. Delete column B when done.