Actividad pública reciente
Ha valorado "Excelente" la respuesta
Fecha en el nombre de la pestaña
Prueba este código: Sub CrearHoja() Dim NombreHoja As String NombreHoja = Date$ Sheets.Add.Name = NombreHoja Sheets(NombreHoja).Move after:=Sheets(Sheets.Count) End Sub No lo uses 2 veces en un día porque te dará error al intentar insertar 2 hojas...