Carry Out Simple Formula on Cell Value

**Jrub** · 10-19-2012, 12:26 PM

Hi!

Attached.

I'm trying to incorporate inflation into the values pulled into the summary tab macro. Inflation being =(1+Inflation Rate)^(Column year - current year)

**Jrub** · 10-19-2012, 01:34 PM

Ok, so I have drawn up the following:

Sub Inflation()
Dim c As Range, LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row

For Each c In Worksheets("BUILDING SUMMARY").Range("F4:O" & LR).Cells
c.Value = c.Value * (1 + Worksheets("Start").Cell("$C$15")) ^ ("F$3" - Worksheets("Start").Cell("$C$17"))
Next
End Sub

But I get errors, can anyone help me out?