Hi Sam,

Thanx for helping. The actual numberformat is clear i.e. not the problem.
What I would like to do is just copy the value to clipboard in desired
numberformat without actually changing the value in Excel. Wit the code below
I get 0612345678, but the value in Excel remains 612345678.

Regards,

Basta

"Sam Wilson" wrote:

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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