guardar archivo mediante macro

[Guest CSI1981]

Buenas tardes

Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba)

El código de la macro es el siguiente

Sub GUARDAR_FILTROLAB()
' Guardar Macro
' Acceso directo: CTRL+h
'
Dim nombre As String
Ruta = "Z:\disco d\\COMPILADO\FAMILY\"
nombre = Sheets("Report").Range("d1").Value
Sheets(Array("report", "Graficos", "Info graficos")).Copy
ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape
ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape
ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape
'
ActiveWorkbook.SaveAs Filename:=Ruta & nombre & ".xlsx"
ActiveWorkbook.Close False
End Sub

Lo resaltado en azul es lo que me da error, no logro darme cuenta que modificación debo hacer para que esta funcione

Desde ya muchas gracias a quien pueda ayudarme

[Abraham Valencia]

Hola

¿Estás seguro que tu ruta es correcta?

"Z:\disco d\\COMPILADO\FAMILY\"

Sugiero que envíes captura de pantalla, del explorador de Windows, de esa ruta.

Abraham Valencia

[Guest CSI1981]

Abraham Valencia, muchas gracias por responder

 

Adjunto imágenes.

Veras que no coincide la ruta porque fue modificada para enviar la consulta

Espero puedas ayudarme

[Antoni]

El mensaje no se trata de un error se trata de una alerta que ocurre cuando intentas guardar un archivo con macros como xlsx.

O guardas el archivo como xlsm o aplicas este código:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Ruta & nombre & ".xlsx", FileFormat:=xlOpenXMLWorkbook

 

[Guest CSI1981]

Antoni

He aplicado sus dos sugerencias y sigue sin resolverse

tendrá alguna otra sugerencia?