Insert a variant into a cell formula

[Rodney Jorgensen]

I am trying to take the ActiveCell.Address and insert that as variant i into a cells formula. I think I have done something like this before, but the " " marks are throwing me off. The Variant i inside of the " " is not taking on the activecell.address.

    Dim i As Variant

    i = ActiveCell.Address
    Range("D1") = "=LEFT(i,LEN(i)-14)"
    Range("D2") = "=MID(i,LEN(i)-12,2)"
    Range("D3") = "=RIGHT(i,10)"

Thanks for all your help

 

[Jinspet]

like this

    Dim i As Variant
 
    i = ActiveCell.Address
    Range("D1") = "=LEFT(" & i & ",LEN(" & i & ")-14)"
    Range("D2") = "=MID(" & i & ",LEN(" & i & ")-12,2)"
    Range("D3") = "=RIGHT(" & i & ",10)"

 

[Rodney Jorgensen]

Thanks, I knew it was something like that.