Insert a decimal point

I have a cell with 5 digits in it ie 15555
I wish to change it to 1.5555
There are over 10,000 cells that I need to do this to. Is there a macro command that will allow me to
select all cells in range
insert decimal point after first digit