Actividad pública reciente
Ha valorado "Excelente" la respuesta
Insertar hojas con nombres con formato
Sub hojas() c = 0 ' cuenta las hojas del libro activo For Each Ws In Worksheets c = c + 1 Next Ws Application.ScreenUpdating = False c = c - 1 For f = 1 To 3 Sheets("hoja2").Copy After:=Sheets(c) ' Suponiendo que Hoja2 es la que deseas copiar...