You want the row?

Just use

ActiveCell.Offset(2, 0).Value = ActiveCell.Row

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"RiverGully" wrote in message
...
I would like to return the results of a formula into a cell based on an
address that I've stored in code. Unfortunately, the result does not
provide me with a value from the formula.

Here is the code I've typed:

Dim LastLineAddress As String

LastLineAddress = ActiveCell.Address
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "+mid(" & (LastLineAddress) & ",5,2)"

End Sub

Here is the result in the spreadsheet:

Cell C149: 12345678
Cell C150
Cell C151 +mid($C$149,5,2)

What I was hoping for in Cell C151 was the value 56 to be displayed, not
the
string +mid($C$149,5,2). Also I'd prefer not to have the absolute
references ($) in the formula.

Can you help me out? Many thanks.