Fecha automatica en el nombre del file

Hola Brenda:
Si lo que estás intentando obtener es que se guarde tu archivo con la fecha de cierta celda estos son los pasos:
Entrar el Editor (con Alt + F11), seleccionar con doble clic el objeto ThisWorkBook (del panel a tu izquierda) y allí escribí esta rutina que ya te explico lo que hace:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ruta = ThisWorkbook.Path
nombre = Range("D2") & ActiveWorkbook.Name
ActiveWorkbook.SaveAs ruta & "\" & nombre & ".xls"
End Sub

La variable ruta guarda la carpeta donde se ubicará el archivo. Con ThisWorkbook.path lo guardará en la misma que el libro activo.
nombre: aquí se arma una cadena con la fecha y el nombre actual del libro (incluyendo su extensión, por eso coloqué la fecha delante)
Pero si la fecha tendrá barras como separadores, te dará error. Tendrás que cambiarlo antes, por ej, por guiones:
nombre = format(Range("D2"), "dd-mm-yy") & activeworkbook.name

Cuando no mencionan referencias solo se puede hacer una rutina aproximada.... espero puedas adaptarla a tus necesidades. Sinó escribime nuevamente con todos tus datos.

Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla/macros

La fecha no puede llevar barras como separadores, por eso te indiqué que utilizaras la expresión format(...), fijate en mi respuesta .
La cadena que tenés que armar a continuación del ActiveWorkbook.SaveAs ....... tiene que ser tal como lo verás en tu barra de dirección, es decir yo agregué una barra (ruta & "\" & nombre) pero si ya incluiste la barra en la variable ruta no hará falta que la agregues aquí.....
Sin referencias o nombres concretos no puedo explicarte más de lo que te escribí.... tendrás que poner un poco de tu parte para armar el nombre del archivo y su ruta, tal como lo ves en cualquiera de tus carpetas....
Sinó decime exactamente cuál será la carpeta donde guardarás el archivo, y cómo se llamará el libro, además de la fecha.

Saludos
Elsa

ActiveWorkbook.Name contiene también la extensión.
Entonces tenés que tomar la parte del nombre solamente con esto:
nbre = left(activeworkbook.Name, len(activeworkbook.name) -4)
Entonces la cadena te queda:
nombre = nbre & Format(.........)


Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla