Please help: a range of % variations in the value contained in a cell.

[jackdruck]

What would be an easy way to obtain a range of values that results from a 20% increase and a 20% decrease in the value contained in cell B2? ( I wrote formulas for 41 cells that would comprise the range, like B2*0.80, B2*0.81 … and so on up to B2*1.20. But there must be a simpler way.)
I would be very grateful for any suggestion.

 

[MickG]

Hi, This will give you "- 20%" to "+ 20%"

[COLOR=navy]Sub[/COLOR] MG06Dec14
[COLOR=navy]Dim[/COLOR] n [COLOR=navy]As[/COLOR] [COLOR=navy]Integer,[/COLOR] r [COLOR=navy]As[/COLOR] Double, Num [COLOR=navy]As[/COLOR] Double, c [COLOR=navy]As[/COLOR] [COLOR=navy]Integer[/COLOR]
 r = 0.01
 Num = Range("B2") * (1 - 0.20792079)
    [COLOR=navy]For[/COLOR] n = 1 To 42
        c = c + 1
        Range("B" & n + 2).Value = Num * (1 + r) ^ c
    [COLOR=navy]Next[/COLOR] n
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[jackdruck]

Thank you very much Mick.

Regards Jack