macro para botón para guardar a PDF esa hoja

[santravis]

Hola, quiero crear un boton en la Hoja Grafica el cual se enlace con la macro de guardar archivo en la carpeta donde esta el archivo pero me salta el siguiente error.
Alguien me puede ayudar, gracias.

GRAFICA_TEMPERATURAS_CAMARAS_1_T10-12_v01.xlsm

[santravis]

perdón, me he equivocado en un par de sitios, en vez de x he puesto c y al final de la segunda linea de las caracteristicas me faltaba una coma. 

[santravis]

yo, otra vez.

Tengo una hoja llamada DOC en la cual la Celda D9 contiene el nombre que quiero para el PDF.
Como hago referencia en VB.
Tengo NombreArchivo = Sheets("DOC").Select Range("D9").Select

pero me da error.

 

Gracias de antemano

[Antoni]

NombreArchivo = Sheets("DOC").Range("D9")

 

[santravis]

Hace 4 horas, Antoni dijo:

NombreArchivo = Sheets("DOC").Range("D9")

 

Gracias 

[Antoni]

Suponiendo que la ruta de la carpeta Secadero esté en C:\Secadero

Ruta = "C:\Secadero" en lugar de Ruta = ThisWorkbook.Path

[santravis]

Gracias, al final termine lo básico