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

Hi Alley

Here is a different flavor

Sub add_decimal()

'********
Dim Cell As Range
Dim R As Range
Set R = ActiveSheet.UsedRange
ActiveSheet.Unprotect

For Each Cell In R
original_value = Cell.Value
first_number = Left(original_value, 1)
last_number = Right(original_value, 4)
new_value = first_number & "." & last_number
Cell.Value = new_value
Next
'*********
End Sub

Thankyou soooooooo much. I was able to use the devide function as well. So easy when one knows how shows how much i know about maths. THANKYOU again

I shall play with the other variations posted by Jetted and OldChippy as they have read my mind re length of digits as well.

almost the same situation as alleyb,
but mine is adding a decimal point in a column of cells.
insert a decimal point after the second number, from the right.
ie. 123456 -> 1234.56, 78900 -> 789.00. (in laymans terms).

thanks.

Originally Posted by alleyb

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

Hi alleyb,

If the length of your digits vary in length (so to speak ), then you could use this, assumming your data is in A1:A10000

=VALUE(LEFT(A1,1)&"."&RIGHT(A1,LEN(A1)-1))

Then drag down

oldchippy