Estoy tratando de convertir esta fórmula a Código VBA y me da un resultado inesperado. Por favor ayuda:

la fórmula que quiero convertir es: =IF(B1="","",VLOOKUP(MONTH(B1),'Sheet3'!B:D,2,0))

mi código era: Sheet1.Range("D1").FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(MONTH(RC[-2])," & Sheet3.Name & "!B:D,2,0))"

me da el resultado: =IF(B1="","",VLOOKUP(MONTH(B1),**'(filename.xlsm)'**!b:(d),2,0))