Prueba así: (marco en negrita lo que cambia con respecto a lo que tienes)
Cita:
Sub ImpPDF()
'
' ImpPDF Macro
'
'
dim RutaArchivo as string
RutaArchivo="C:\carpetes\ESCOLA\2008-2009\Diners personal\"+cells(18,2)+".pdf"
Range("L4:R37").Select
Range("R37").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("B19").Select
End Sub
Si en lugar de en la celda B18 estuviera en otra sólo tendrías que cambiar los parámetros de Cells en la instrucción que rellena la variable RutaArchivo. Espero que te sea de ayuda.