ruta donde guardar archivo

hola, domingo !

... se puede modificar la propiedad Dialogs para que siempre me 'muestre' la misma ruta y *directorio*, donde guardar ?.
No uso *ActiveWorkbook.SaveAs Filename:* porque cuando se llega un 4º nivel del arbol
hay que elegir manualmente un subdirectorio porque su nombre varía en funcion del fichero que quiero guardar :
\\servidor\documentos\excel\facturas\1001 010108, 1002 020108 , .1099 311208 (...)

(p.e.): para mostrar el dialogo en una carpeta (pre)determinada, incluye la ruta incluyendo el separador de rutas al final ("\" ?)
-> application.dialogs(xldialogsaveas).show "c:\mis documentos\sub carpeta1\sub carpeta2\"
el nombre del archivo queda a eleccion del usuario (incluso puede "navegar" a otra ubicacion en el dialogo)

otra alternativa es que cambies de directorio con la instruccion ChDir "nueva ruta" (y/o de unidad: ChDrive "nueva raiz")
antes de mostrar cualquier alternativa de dialogos para abrir/guardar los archivos

nota que cualqiera de estas acciones cambian al directorio activo (que donde por omision se abren estos dialogos)

otra posibilidad (asumiendo que puedes determinarlo con exactitud) es que guardes incluyendo ruta y nombre "reales"
(lo que no se pudo determinar con los detalles -NO- expuestos en esta consulta)

saludos,
hector.

__ codigo expuesto __
Sub demo()
Dim respuesta As Boolean
respuesta = Application.Dialogs(xlDialogSaveWorkbook).Show <
If respuesta Then
MsgBox "okeis guardado"
Else
MsgBox "not ha cancelado"
End If
End Sub