Foro Excel

Hola a todos, resulta que estoy trabajando con esta macro para crear una imagen de una hoja de calculo, pero me haria falta que cada vez que la crease fuera con un nombre de archivo diferente por ejemplo con la fecha y la hoja actual, alguien tendria alguna idea.
Gracia de antemano y un cordial saludo.

Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:\mis documentos\miArchivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub

Hola, probá así:
.Chart.Export "c:\mis documentos\miArchivo" & Date & "-" & Time & ".gif"

Date y Time son funciones que devuelve fecha y hora respectivamente.

hola, chicos !

Adrian escribió:Hola, probá así:
.Chart.Export "c:\mis documentos\miArchivo" & Date & "-" & Time & ".gif"
Date y Time son funciones que devuelve fecha y hora respectivamente.

nota: usar directamente las funciones date y time, devolvera caracteres no admitidos para nombrar archivos, la alternativa apropiada es la funcion format delimitando las funciones date y time +/- asi:
.Chart.Export "c:\mis documentos\miArchivo en " & format(date,"dd-mm-yy_") & format(time,"h-mm-ss") & ".gif"

saludos,
hector.

Hola Héctor, EXELente acotación, claro date tiene barras que producirán el error, el time los dos puntos, esto es básico de windows, no me percate de ello, eso me pasa por no probar.

Reitero muy bueno el consejo.

Señores muchas gracias por la aportación, todo perfecto.
Un cordial saludo y nuevamente muchas gracias.