Mira este ejemplo:
http://www.excelworker.virtuabyte.cl...id=3&Itemid=27
Crear Hoja, Renombrarla, Copiarla y Eliminarla
En el ejemplo se crea una nueva Hoja (Método Add), se obtiene su número de índice (Propiedad Index) y se le da el nombre “Ejemplo” (Propiedad Name). Luego se mueve la hoja creada a continuación de la Hoja2 (Método Move) y se obtiene nuevamente el número de índice de la hoja debido a que cambió de posición. Por último la hoja nueva llamada “Ejemplo” se copia a continuación de la Hoja2 (Método Copy) y a la copia se le da el nombre “Copia de Ejemplo” (Propiedad Name) para luego eliminar la hoja llamada “Ejemplo” (Método Delete).
Sub CreaHoja()
Dim indice As Integer
Application.ActiveWorkbook.Worksheets.Add
indice = Application.ActiveWorkbook.ActiveSheet.Index
Application.ActiveWorkbook.ActiveSheet.Name = "Ejemplo"
Application.ActiveWorkbook.Worksheets(indice).Move After:=Hoja2
indice = Application.ActiveWorkbook.ActiveSheet.Index
Application.ActiveWorkbook.Worksheets(indice).Copy After:=Hoja2
Application.ActiveWorkbook.Worksheets(indice).Name = "Copia de Ejemplo"
Application.ActiveWorkbook.Worksheets(indice + 1).Delete
End Sub