Formula with Variable without quotes

I am trying to return this formula without the quotes in the result. Every time this macro is executed it returns :

=VLOOKUP(A2,"'2009-06-04'!1:65536",12,FALSE)

Can someone tell me how to get the result to be:

=VLOOKUP(A2,'2009-06-04'!1:65536,12,FALSE)


fname1 = "'" & Format(Now, "YYYY-MM-DD") & "'" & "!1:65536"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-15],""" & fname1 & """,12,FALSE)"