Excel - Guardar Como

Hola Foro, estoy intentando que al activar el boton de menu Guardar Como, aparezca el nombre del archivo, este nombre se genera en una de las celdas de la hoja activa (A1 en el ejemplo). He probado con:

Dim StrFname as String

StrFname= ActiveSheet.Range("A1").value
--------------------------------------------------------
GetSaveAsFilename(StrName, FileFilter, FilterIndex, Title, ButtonText)

Pero el cuadro de dialogo al activar Guardar como aparece 2 veces.

Gracias de antemano

Al activar el menu "guardar como"??? Trata de explicarte mejor. Que es lo que realmente deseas hacer, guardar un archivo con el nombre de una celda???

Abraham

Me explico mejor:

En un libro de una sola hoja tengo el valor XXXXX-YYYYYYYY en la celda A1. Cuando voy a guardar el libro y en la barra de menu selecciono Guardar Como, por defecto me aparece Libro1.xls, lo que quiero es que me aparezca el valor de la celda A1.

Si utilizo Application.GetSaveAsFilename(StrName, FileFilter, FilterIndex, Title, ButtonText), asignando previamente el valor de la celda A1 a una variable, lo que ocurre es que aparece 2 veces la ventana de dialogo Guardar como.....

¿ Alguna idea ? Gracias de antemano.