Hola Yusef, intenta con algo asi:
Sub InsertarHojas()
For i = 2 To 7
Sheets(1). Copy After:=Sheets(Sheets. Count)
Sheets(Sheets. Count). Name = "Nombre" & i
Next i
End Sub
Para el nombre de la pestaña:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1"). Value = ActiveSheet. Name
End Sub

Hola Armando, gracias por tu pronta respuesta,

Creí saber mucho de excel hasta que vi esto jejeje, me imagino que tengo que crear una macro o algo así.

Me podrías dar mas instrucciones para poder alcanzar el objetivo.

Saludos.

Hola Yusef, solo necesitas copiar y pegar el codigo en un modulo, sugiero consultes este link: http://hojas-de-calculo-en-excel.blogspot.com/2008/01/macros-en-excel. Html
y leas el manual basico de este segundo link:
http://www.geocities.com/excelmx/ManualMacros. Pdf

Hola Abraham,

Te agradezco tu ayuda, voy a leer los manuales y te mantendré al tanto.

Saludos

Pues como ya ha comentado Armando son es necesaria una macro, al menos para tu primer propósito, para el segundo se puede con fórmulas pero si vas a implementar una macro para colocar un nombre consecutivo pues de paso nos liquidamos la segunda parte. Uno de los enlaces que te envía Armando muestra como implamentar una macro, muy entendible por cierto, ya que hayas avanzado en eso te sugiro que coloques la siguiente macro en la sección de ThisWorkbook, es decir, estando en la ventana de VBE en la parte izquierda (por lo general) en la sección de Proyectos, ubica el ThisWorkbook de tu libro donde deseas colocar la macro y copia esto:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh
. Name = Val(Sheets(Sheets. Count - 1). Name) + 1
. Range("A1") =. Name
End With
End Sub

Esta macro se ejecutará cada que insertes una nueva hoja y le cambiará el nombre según el de la última hoja, como tu lo deseas, de paso coloca en A1 de esa hoja el nuevo nombre.
Realiza tus cambios pertinentes.
Saludos,,,

Hola Enrique, tu código me sirvió de maravilla, al igual que los textos de Armando, me estaré cultivando mucho acerca de estos macros ya que son muy funcionales.

Por otro lado, no puedo conseguir el segundo pendiente, de folear digamos la celda E5 con el número de la nueva hoja insertada.

Saludos.

Hola Yusef, no te funciona? En el procedimiento anterior está la instrucción que realiza esa tarea (te la subrayo):

Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh
. Name = Val(Sheets(Sheets. Count - 1). Name) + 1
. Range("A1") =. Name
End With
End Sub

En este ejemplo coloca en la celda A1 el nombre de la hoja.

Saludos,,,

Que tal Enrique, claro tenías razón, ahora te explico un poco el procedimiento que utilizo y ahora al aplicarlo no obtuve el resultado que yo quería.

1. Agrego la nueva hoja.

2. Copio el formato de la hoja anterior ya que contiene tablas, costos, nombre de cliente etc... Y cuando lo pego en la nueva se sustituye el valor del folio ya que estoy copiando la hoja entera.

Hay alguna manera de que cuando pegue esta hoja anterior en la nueva, me respete el actual valor del folio de la hoja?

No se si me explique?

Saludos.

Hola Enrique,

Lo ideal sería poder copiar toda la hoja anterior al agregar la nueva, haciendo la función del foleado...

Me cuesta un poco de trabajo explicarlo jeje

Gracias por la ayuda.

Hola Yusef, acabo de subir un par de archivo que hice rápido para que veas dos formas distintas de hacer lo que necesitas, una es usando un botón para lo cual lo que tienes que hacer es colocarte siempre en la hoja donde está ese botón y ejecutar la macro, la otra es usando el evento NewSheet que como sabemos se ejecuta al insertar una hoja.

Saludos,,,

Hola Enrique, donde puedo ver esos archivos?

Saludos...

En la sección Documentos

Hola Enrique,

No había visto el msj, no encuentro la sección de documentos :(

Saludos.

Hola Enrique, no he podido encontrar los ejemplos que subiste? Me podrías decir el nombre de los archivos de favor para poder encontrarlos.

Te agradezco mucho tu ayuda!

Saludos.

Ok ten envío los enlaces Ejemplo usando botón y ejemplo usando eventos

Saludos,,,