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