Poner una ruta variable en un vlookup de una macro

Hola chicos,

Tengo una duda, quiero hacer un buscarv con una ruta variable pero he hecho esta macro y que aparece otra ruta.....Por favor, me podrían ayudar???

Sub ejemplo()

EMPRESA = Range("A3")
treg = Range("a4")
MES = Range("A2")
anio = Range("A1")
M = Mid(MES, 1, 3)
a = Mid(anio, 3, 4)
MA = M & "-" & a
If MES = "Enero" Then mm = "01"
If MES = "Febrero" Then mm = "02"
If MES = "Marzo" Then mm = "03"
If MES = "Abril" Then mm = "04"
If MES = "Mayo" Then mm = "05"
If MES = "Junio" Then mm = "06"
If MES = "Julio" Then mm = "07"
If MES = "Agosto" Then mm = "08"
If MES = "Setiembre" Then mm = "09"
If MES = "Octubre" Then mm = "10"
If MES = "Noviembre" Then mm = "11"
If MES = "Diciembre" Then mm = "12"
If EMPRESA = "Abc" Then
s = "25"
P = "A"
End If
If EMPRESA = "Cba" Then
s = "80"
P = "B"
End If

Range("D1").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],'D:\" & EMPRESA & "\PLAME " & s & "\SAP\" & anio & "\INDICADORES" & mm & a & "_" & P & "!R1:R65536,9,0)"
End sub