This code takes way to long to run

Originally Posted by davesexcel

 [C1:C300] = [INDEX(proper(C1:C300),)]

...which is equivalent to:

Range("C1:C300") = Evaluate("=INDEX(PROPER(C1:C300),)")

for those who prefer not to use [shortcut] notation.