Crear un archivo a partir de la hoja activa.

Con esta macro crearás un archivo nuevo a partir de la hoja activa guardando la la hoja y archivo original para posteriores usos.

Código de la macro

Sub CrearArchivoNuevo()

Dim Hoja As Worksheet
Dim NombreArchivo As String

Set Hoja = ActiveSheet
NombreArchivo = ActiveWorkbook.Name

Hoja.Copy
Windows(NombreArchivo).Activate

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada