Guardar con un nombre sugerido.

Buenas.

Vereis quiero realizar una macro que, cuando el usuario clickee el botón de guardar como aparezca en el diálogo un nombre de archivo, a modo de sugerencia, distinto al que posee el propio archivo.

He intentado lo siguiente:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Application.Dialogs(xlDialogSaveAs).show  ("Nombre sugerido.xlsx")

End Sub

[/CODE]

pero lo que obtengo es que, una vez guardado el archivo, me pide volverlo a guardar y me gustaría evitar eso. También había pensado en, por medio de la macro, guardar el archivo en alguna parte (windows/temp por ejemplo) con el nombre que yo sugiero y luego hacer aparecer el diálogo de guardar, per descarto esta posibilidad puesto que no se, de antemano, qué carpetas serán accesibles.

Muchas gracias por vuestra ayuda.

Un saludo