No me guarda el PDF en la carpeta

Sub PDFH
Dim Namek As String
 Namek = ruta2 & Format(Now, "ddmmyyyy") & ".pdf"
 ruta2= "C:Laura/documents/"     
 MsgBox "<" & Namek & ">"
     ActiveDocument.ExportAsFixedFormat OutputFileName:=Namek, _
  ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
     Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
   CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
         'Cerrar word
    WordApp.Quit
     Set WordApp = Nothing
    Set wdDoc = Nothing
End Sub

No me funciona la macro... No se qué está mal