I've never worked with a bar code scanner before... I presume it put the
values it reads into the cells as text (or possibly numeric) constants. If
so, give this a try...

Sub AddZeroAndDash()
Dim C As Range
For Each C In Columns("F").SpecialCells(xlCellTypeConstants)
C.Value = Format(Replace(C.Value, "-", ""), "00-000000")
Next
End Sub

Rick


"Daniel M" wrote in message
...
I have a spreadsheet that i scan barcodes into. Some of the barcodes are
old and omit the - in the serial number. I need to format the text to add
it back in. below is an example of the data. Also when the - is omitted it
reads the cell as text instead of general and omits the leading 0.

02-123456
2123456

You see no - and no leading 0. I need to add both back in. Can anyone give
me some help? I have tried a few things but i have another issue that
breaks all of them. Thanks.

dm.