On Dec 9, 4:32*pm, Steved wrote:
Hello from Steved

I need to remove please the "0" I have a script below but do not know how to
adjust it to remove the "0"

from * * * *to this
7-086-1 * 7-86-1
7-094-1 * 7-94-1
7-099-1 * 7-99-1
7-024-1 * 7-24-1
7-024-1 * 7-24-1
7-084-1
7-081-1

Sub DelZeros2()
'Do Until ActiveCell = ""
For x = 1 To 1
* * Dim Rng As Range
* * Set Rng = Range("E1", Range("E56000").End(xlUp))
* * Range("E1").Select
* * For Each cell In Rng
* * If cell.Value < "" Then
* * * * ActiveCell.Offset(0, 1).Select
* * * * ActiveCell.FormulaR1C1 = "=MID(RC[-1],1+(LEFT(RC[-1])=""0""),99)"
* * * * ActiveCell.Offset(1, -1).Select
* * End If
* * Next cell
Next x
'Loop
End Sub

I thankyou.

http://www.mvps.org/dmcritchie/excel/strings.htm Neat Site!
There's a replace function in there I think might help.