Thanks! Exactly what I needed!


"Bob Phillips" wrote in message
...
Sub MultiplyByB2()
Dim cell As Range

For Each cell In Selection
If IsNumeric(cell.Value) Then
cell.Formula = "=" & cell.Value & "*B2"
End If
Next cell
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Craig" wrote in message
...
I have a row of hardcoded numbers in cells A1, A2, A3 A4. I want to be
able
to highlight(select) the above cells and have them be multiplied by B2.
Is
this possible.

I have a huge worksheet that has all hardcoded numbers that I need to be
multiplied by a certain cell. In the above instance B2.

So instead of going into each cell, placing an "=" in front of the value
and
then putting an * B2 at the end of the value in each cell, I am trying to
figure out how set up a macro and do it automatically.