Column D x 2

[TGalin]

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?

 

[Don Guillett]

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

 

[TGalin]

Thank you for your help. I'm not sure how to use this.

 

[Don Guillett]

Just copy/paste into a macro module and execute from there. Make sure your
sheet is the active sheet at the time.