How to capitalize every word in excel cell? -

i have 15k rows each has 3 column similar following structure.

id title description
0 short title long description column

i want capitalize every single word in title column appear as:
a short title

is there way achieve this?

=proper(b2) 

the formula can capitalize every 1st character of every word in string.

edit: if want manually, copy formula across column that.
can goto cell containing formula. on bottom right corner, see + sign when hover on cell - double click bottom right corner when see that.

this copy formula rows underneath current one, till finds there data in column preceding it.

edit2: using code

option explicit sub changeallcellsinthiscolumntopropercase(byval startcell range) dim lastcell range set lastcell = startcell.end(xldown)  dim data dim rangetocover range  set rangetocover = range(startcell.address & ":" & lastcell.address) data = rangetocover.value  dim countofcells long countofcells = rangetocover.cells.count  dim counter, element counter = 1 countofcells     element = data(counter, 1)     element = worksheetfunction.proper(element)     data(counter, 1) = element next  range(startcell.address & ":" & lastcell.address).value = data end sub 

edit3: doing manually (after @mehow's comment) - type in formula in empty column (say column f) proper case on b2.
- copy formula, select rest of cells want formula applied.
- paste special -> formulas
- copy column contents of f
- goto column b's first cell, paste special -> values.