aetxezar

Te dpoy el código para ver los nombres de las hojasy ver el nº de las que se llaman prod Sub verNombreHojas() i = 1 cuentaprod = 0 While i <= ThisWorkbook.Sheets.Count msg = msg & ThisWorkbook.Sheets(i).Name & ";" encontrado = InStr(1,...

Cuando guardas el libro actual como otro nombre de libro el original no permanece abierto. Si abres otro libro diferente veras como ActiveWorkbook. Close sólo cierra este libro y no ninguno otro. Deberías abrir el libro original después de guardarlo...