Hi spreadsheet monkey

You can try this

Dim cell As Range
For Each cell In Columns("A").SpecialCells(xlCellTypeConstants)
cell.Value = Mid(cell.Value, 1, 6) & "-" & Mid(cell.Value, 7, 4)
Next cell


With a formula you can do this in col B

=MID(A1,1,6)&"-"&MID(A1,7,4)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"spreadsheet monkey" <spreadsheet wrote in message
...
I need a solution/macro to insert a minussign (-) into a 10 digit number
between digit 6 and 7 (to get a number looking like this xxxxxx-xxxx)

I need to do it in a single column for all 65 536 lines of code in the
spreadsheet.

who of you is nerd enough to tackle this challenge?