Greetings all,

I am receiving an 'Application-defined or Object-defined' Run-time error on some simple code but I can not for the life of me get it to work. I am using 2003 and trying to just insert a formula into a selected range of rows down a column.

Dim cell As Range

Sub insertLineSellFormula()
    For Each cell In Selection
        cell.Formula = "=OFFSET(" & cell.Address & ",0,-2)/(1-OFFSET(" & cell.Address & ",0,-1)"
    Next cell
End Sub
Oddly enough I can reference the cell object to alter other properties of it within the loop (clear it, apply conditional formats, ect.) but when I attempt to insert the formula or a .Value I get the run-time error.

As always any insight you guys may have is very much appreciated.

Thanks!