Brilliant. Works great. Thanks.

"Harald Staff" wrote in message
...
Hi David

Select the cells and run this:

Sub DelLast()
Dim Cel As Range
For Each Cel In Selection
If Cel.HasFormula = False Then
If Len(Cel.Value) 1 Then _
Cel.Value = _
Left(Cel.Value, Len(Cel.Value) - 1)
End If
Next
End Sub

HTH. Best wishes Harald

"David" skrev i melding
...
Can anyone please help.

I am trying to write a very simple macro that will just edit a cell and
delete the last chracter.
Example:
I have a column with the following numbers:
1234
5678
9032

I want a macro that I can just convert each cell to the following:
123
567
903

Therefore, stripping the last digit. I don't even mind if it splits the
cell
into two so the end result is:
123 4
567 8
903 2

Thank,
David