tavopz respondió:
Puede ser una macro como esta: Sub NombresHojas() Dim i(256) ruta = "C:\Archivos\" archivo = "Archivo123.xls" miarchivo = "macro_nombreshojas.xls" Workbooks.Open Filename:=ruta & archivo Windows(archivo).Activate x = ActiveWorkbook.Sheets.Count For j...