Hi, I have the following vba to input formulas in cells. However, rather than it inputting a number for the MyRow, it just adds the wording. How can I amend this to correct?
Thanks, Mark
Code:
Sub SummarySheet2()
bottom = ActiveSheet.Range("A65536").End(xlUp).Row
For R = 3 To bottom Step 1
Let MyRow = 60 + 59
Cells(R, "F").Select
ActiveCell.FormulaR1C1 = _
"=IF(Detail!J MyRow = ""To Summary"",""Page 1 Summary"","""")"
Next R
End Sub
Thanks, Mark