Al imprimir hojas crear pdf con nombre del libro

[edgarivan6]

Saludos amigos tengo un formato el cual he hido adjuntando varias macro con diferntes instrucciones y necesito adjuntar una nueva que haga lo siguiente, al Imprimir una o varias de las hojas del libro se vaya creando un archivo en PDF con el mismo nombre del libro, en la hoja DATOS hay una celda (C16) que le da el nombre del libro que generalmente es un numero, he revisado varios proyectos pero ninguno se adapta a mi requerimiento, tambien en el editor de vb en la hoja ThisWorkBook hay una macro que se ejecuta antes de imprimir

intente usar esta instruccion pero no me funciono

Sub GuardaPDF()

Dim rutaarchivo As String

rutaarchivo = "C:\PDFs\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaarchivo, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

podrian guiarme a realizar la instruccion adecuada

gracias de antemano

1.zip