Bruce,
not tested it, but try
For Each Cell In Sheets("IncStmtAssump").Range("C2:C50")
If Cell.Value = "Input" Then
Sheets("Sheet3").Range(Cell.Offset(0, -1).Address).Formula = _
"=IncStmtAssump!D" & Cell.Row
ElseIf Cell.Value = "Revenue" Then
Sheets("Sheet3").Range(Cell.Offset(0, -1).Address).Formula = _
"=IncStmtAssump!D" & Cell.Row & "*(1+IncStmt!D" & Cell.Row & ")"
End If
Next
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
Bruce Forster said:
Bob...it works but still having a minor problem. I need to have a formula
that calculates % growth from the previous year which would look like this
Previous Years Revenue * (1+Growth Assumption) Here is the code I am
attempting but am getting an error.