For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
Cells(i,"A").Value = Cells(i,"A").Value & "-3"
Next i

HTH

Bob

"GR" wrote in message
...
Have column of numbers that must be converted to a new number by simply
adding same to number is two specific places. ex: 6200-80 must become
6200-080-3

How to do this w/out re-keying entire workbook?