Macro que Guarda hoja en un archivo nuevo y Crea link del mismo en una celda
Tengo un libro con las hojas UNO, DOS y TRES una macro me genera un archivo nuevo de las hojas UNO y DOS, en la hoja TRES tengo un indice con los archivos generados, quiero crear un hipervínculo al archivo generado y colocarlo en la celda que corresponde al nombre del archivo... Este es el código para guardar el archivo con las hojas UNO y DOS,
-me guarda el archivo con la fecha
-nombre de la celda H2 en hoja UNO
-y el nombre que inserto en un InputBox
-después lo guarda en la misma ubicación y lo cierra
Sheets("UNO").Select
fecha = Format(Now, "yy-mm-dd ")
po = Range("H2")
nuevo_nombre = InputBox("INSERTE EL NOMBRE DE ARCHIVO")
ruta = ActiveWorkbook.Path
Sheets(Array("UNO", "DOS.")).Copy
ActiveWorkbook.SaveAs ruta & "\" & fecha & po & " " & nuevo_nombre & ".xlsx"
'Tal vez en esta parte pueda asignar un hipervínculo a la celda E2 de la pagina TRES al reciente archivo generado
ActiveWorkbook.Close