doctorkaos respondió:
Puedes hacerlo con el siguiente código: Sub nombre_hoja_celda() Range("d1") = ActiveSheet.Name End Sub Y con eso tendrás el nombre de tu hoja el la celda que tu elijas. Saludos y recuersda cerrar esta pregunta para que no se quede volando.