Hi
change the line
cell.Value = cell.Value * Range("A1")

to
cell.formula = "=$A$1*" & cell.value

--
Regards
Frank Kabel
Frankfurt, Germany

RK wrote:
I need a macro to vary my sales forecast (which are values contained
in a range named "Forecast") by the factor specified in Cell A1. I've
written this macro:-

Sub Vary()
Dim cell As Range
For Each cell In Range("Forecast")
cell.Value = cell.Value * Range("A1")
Next
End Sub

Although this macro does vary the forecasts by the factor specified
in cell A1, the results are all values. I need each cell within the
range "Forecast" to actually contain a reference to cell A1 (i.e.
*A1). In future, I can vary the forecast by just changing the figure
in cell A1 without running any macro.

Thanks!