Hi All,
I would like to copy a formula to a range of cells, the relevant code is as follows:
I get an error, "there isn't enough memory to complete this action."
...what's going on?
I would like to copy a formula to a range of cells, the relevant code is as follows:
VBA Code:
Dim cell as range
Dim wsData As Worksheet: Set wsData = Sheets("Data")
For Each cell in wsData.Range("B10:B45")
Cells.FormulaR1C1 = "=IF(R[-1]C+20>720,MOD(R[-1]C,20),R[-1]C+20)"
Next cell
...what's going on?