Generar Hoja y copiar la hoja de Origen

Tengo una hoja de calculo que necesitara que cuando puldo un botón me generara una hoja nueva con un nombre determinado y me copiara la origen en la nueva he usado el siguiente código pero solo me genera la hoja

Sub CreaHoja()

On Error GoTo x
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
Worksheets("Intereses").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Hoja1.Range("c24").Value
Exit Sub
x:
MsgBox "Hubo Error, ", 0, ""
Cells.Select
End Sub

En la hoja el nombre de la nueva es la casilla c24.