Copiar y renombrar hoja en excel

[clbarretog]

Buen día:
Tengo un requerimiento que creo para ustedes será sencillo.
Tengo un libro con una sola hoja. Necesito una instrucción que me haga una copia de esa en este libro.
Lo que requiero es que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub Copia()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Nombre de Hoja")
End Sub

 

[clbarretog]

Buen día Antoni:

A la perfección. Muchas gracias,