One way
Sub dodigits()
For i = 1 To 6
Cells(i, "b") = Cells(i, "b") / 100
Cells(i, "b").NumberFormat = "0.000"
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"evoxfan" wrote in message
...
I have a column of 5 digit numbers like this:
15055
15060
15071

I would like add a decimal after 3 digits and 0 to the end to show:
150.550
150.600
150.710

What would be the best way to accomplish this?