variables in .formula vs .formular1c1

[jkicker]

Trying to sub a variable into vlookup for the table array.
This works:

Sub vl()
' temporary fix for summer teach

Dim vl1 As Range
Dim vl2 As Range
Dim vl1a As Range

    Set vl1 = Range("A:A").Find("C.I.")

    Set vl2 = Range("B:B").Find("17200")

    Set vl1a = Range(vl1, vl2)

    MsgBox vl1a.Address

    ActiveCell.Formula = "=VLOOKUP(G5," & vl1a.Address & ",2)*H5"


End Sub

This doesn't:

Sub vl()
' temporary fix for summer teach

Dim vl1 As Range
Dim vl2 As Range
Dim vl1a As Range

    Set vl1 = Range("A:A").Find("C.I.")

    Set vl2 = Range("B:B").Find("17200")

    Set vl1a = Range(vl1, vl2)

    MsgBox vl1a.Address

    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2]," & vl1a.Address & ",2)*RC[-1]"

End Sub

"Application-defined or object-defined error"
I guess that means that's not how you call a variable in this format. I need to use the second version, how do you do it?

 

[Fluff]

Try

vl1a.Address(,,xlR1C1)

 

[jkicker]

Try

vl1a.Address(,,xlR1C1)

Whoohooo! How do i give you internet points?

 

[Fluff]

Glad to help & thanks for the feedback.
Not sure what you mean by "Internet Points", but if you are referring to a ranking or reputation system, then we don't have one here.