Actividad pública reciente
Ha valorado "Excelente" la respuesta
Insertar hoja a la derecha
Ahora si: Sub NuevaHoja() Cells.Select Selection.Copy Dim nombreHoja As String nombreHoja = InputBox("Escriba un nombre para la nueva hoja:") If nombreHoja = "" Then Exit Sub Dim hoja As Worksheet Set hoja = ActiveWorkbook.Sheets.Add(,...