HI,

Code below works fine. Now I would like to make a small adjustment. The
activecell.value needs to be changed from 612345678 to 00612-345678 without
actually changing the format in the cell.

Dim MyData As DataObject
Set MyData = New DataObject
MyData.Clear
MyData.SetText "0" & ActiveCell.Offset(0, 0).Value
MyData.PutInClipboard

Thankx in advance.

Basta