Peter,
Here's one way :
Dim i As Long

With ActiveCell
For i = 0 To 15
.Offset(0, 16 - i).Value = -1 * ((.Value And 2 ^ i) 0)
Next
End With

NickHK

"Peter Cheang" wrote in message
...
My column A fill with decimal numbers, I want it to be converted 16 bit
binary and each binary bit go to each column. Anybody can give some
teach,thanks.