Updating VBA Formula for Sheet Name

[HazatB]

Good Morning,

I am attempting to update my excel code as originally split he code per quarter. I have fixed most issues to make the code generic, what I am having issues on is a formula to do a vlookup. any suggestions to complete the fix.

    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-3],qtr3_gl_to_si_allocation_part_b!C[-3]:C,2,FALSE)"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D" & LastRowT)
    Range("D1:D" & LastRowT).Select
    Range("E1").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-4],qtr3_gl_to_si_allocation_part_b!C[-4]:C[-1],4,FALSE)"

 

[steve the fish]

Create a variable called myQuarter then you can say:

Range("D1:D" & LastRowT).FormulaR1C1 = "=VLOOKUP(RC[-3],qtr" & myQuarter & "_gl_to_si_allocation_part_b!C[-3]:C,2,FALSE)"
Range("E1:E" & LastRowT).FormulaR1C1 = "=VLOOKUP(RC[-4],qtr" & myQuarter & "_gl_to_si_allocation_part_b!C[-4]:C[-1],4,FALSE)"

 

[HazatB]

I tried it and nearly got it to work I think I just messed up the first attempt.

 

[HazatB]

got it to work.

thanks.