Sub multiplyby()
x = InputBox("multiple value ie: 2")
On Error Resume Next
For Each c In Columns("D").SpecialCells(xlCellTypeConstants, 23)
'If IsNumeric(c) Then c.Value = c * x
c.Value = c * x
Next c
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"TGalin" wrote in message
...
Column D has numbers in random cells. Is there a code that will look
through
the cells in Column D for numbers and when it finds them multiply them by
2?