Excel - Cambiar nombre a hojas creadas

Buenas, el problema es el siguiente, quiero hacer una macro con la cual cuando la ejecute me cree una copia de la hoja de trabajo y me le cambie el nombre tambien. Por ejemplo si comenzamos con hoja INVENTARIO y me hace una copia y el cambiarle el nombre a INVENTARIO 1, por ejemplo, luego del INVENTARIO 1, cuando ejecute la macro alli, me haga INVENTARIO 2, y asi sucesivamente.

Gracias,

En este mismo Foro podés buscar 'sheet.name' y encontrarás lo que buscás y más también...

Saludos desde Baires, JuanC

Hola Jeancaro. Espero le sirva el siguiente codigo
Carlos augusto lópez
www.compexcel.net.

Sub CrearHojayCambiarNombre()
orden = 1
nohayhoja = 0
Do While nohayhoja <> 1
For x = 1 To Sheets.Count
If Sheets(x).Name = "INVENTARIO " & orden And Sheets.Count = x Then
orden = orden + 1
nohayhoja = 1
ElseIf Sheets(x).Name = "INVENTARIO " & orden Then
orden = orden + 1
Exit For
ElseIf Sheets.Count = x Then
nohayhoja = 1
End If
Next x
Loop
Sheets.Add
ActiveSheet.Name = "INVENTARIO " & orden
If orden = 1 Then
ActiveSheet.Move after:=Sheets("INVENTARIO")
Else
ActiveSheet.Move after:=Sheets("INVENTARIO " & orden - 1)
End If
Sheets("INVENTARIO").Cells.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(1, 1).Select
End Sub

Espero que te sirva mucho

Un saludo
SCM