Macro para copiar una hoja que yo escoja y renombrar la copia con un nombre que yo escoja

Necesitaría una macro que me copie una hoja concreta (la que yo indique) en una hoja nueva a la que querría yo darle el nombre.