Macro para guadar hojas con un nombre de una celda variable y fecha y hora, Ayuda!!

[Saksssss]

Buenas a todos, espero alguien me pueda ayudar, llevo rato trabado en esto.

Necesito terminart de crear un boton, con macro, para que me guarde automáticamente una hoja activa, con el nombre de una casilla(Valor Variable9 y la hora. De ésta manera logro, que al guardar la hoja activa en una ruta x, me la transforme a pdf, pero no quiero que me sobreescriba la hoja anteriormente guardada.

Se tratan de recetas, donde se repiten los nombres de lamisma, entonces no puedo guardar la hoja con el mismo nombre, por ejemplo Nombre Vainilla, necesito repetir este nombre en varias hojas, por ésto pensaba insertarle detrás del nombre otro indice, podría ser un numero rotativo ascendente o mejor una fecha y hora, para que quede así:

Vainilla 12-03'2010 01:15 > Necesito que los nombres de las hojas de mi libro se guarden de este modo, y en formato pdf.

Les paso el código que llevo, que me funciona pero solo toma el nombre de la receta.



Sub ImpPDF()
'
' ImpPDF Macro
'
'
Dim RutaArchivo As String
RutaArchivo = "C:\RECETAS\" + Cells(8, 3) + ".pdf"
Range("A1:G39").Select
Range("G39").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("C8").Select
End Sub

La casilla c8, que arriba se representa como Cells, (8,3), es donde aparecerá el nombre de la receta, me faltaría agregarle a ésta rutina que me agregue la fecha y hora como parte del nombre, de éste modo no me sobreescribirá las recetas, ya que el nombre será diferente.

Por favor, si alguien me hecha una ayudita, estaré muy agradecido.-

[SPAWN3000]

No es muy clara tu pregunta:

Pero creo que algo asi???

Código:

Dim WS_Count As Integer 'Hojas activas
Dim I As Integer 'indice de posicion hoja.
Dim RutaArchivo As String 'VAr ruta de almacenamiento

WS_Count = ActiveWorkbook.Worksheets.Count 'Contar las hojas
For I = 1 To WS_Count 'Recorrer hojas
            'ActiveWorkbook.Worksheets(I).Name 'GET Nombre de la hoja activa
            'ActiveWorkbook.Worksheets(I).Name = 'algo' 'SET Nombre de hoja
            RutaArchivo = "C:\RECETAS\" + ActiveWorkbook.Worksheets(I).Name + Cells(1, 1) + Format(Now, "dd-mm-yyyy") + Format(Now, "(hh'mm'ss)") + ".pdf"

 Next I

Lo que hace este código es crear una ruta de la forma:

C:\RECETAS\NombredeHojaLo_que_hay_en_celda(1,1)Fec ha(Hora).pdf

Ejemplo: C:\RECETAS\VainillaFernando06-04-2010(09'55'44).pdf

Con formato: fecha dd-mm-aaaa(hh'mm'ss).

2. Si lo que deseas es aignar nombres a las hojas:

For I = 1 To WS_Count 'Recorrer hojas
'begin for x
ActiveWorkbook.Worksheets(I).Name = Cells(1, x)+Format(Now, "dd-mm-yyyy") + Format(Now, "(hh'mm'ss)")
'end for x
Next I


Me cuentas si te funciona.

Un saludo

[mrocf]

Hola! Saksssss. Podrías reemplazar
RutaArchivo = "C:\RECETAS\" + Cells(8, 3) + ".pdf"

por lo siguiente:
RutaArchivo = "C:\RECETAS\" & [C8] & Format(Now, " yyyy-mm-dd hh:mm:ss") & ".pdf"

Saludos, Cacho.