Excel - Macro que genere archivo nuevo con datos

Necesito que al pulsar un boton una macro me genere:
- Un archivo nuevo de excel ( el nombre del archivo sera el de los datos de la celda (x,y)
-Sobre ese nuevo archivo debo pegar el rango (XY:ZN)
-Debera ser un pegado especial de:
Valores
Formatos
Ancho de las columnas.

El problema ahora mismo es que al ejecutar la macro, la hoja destino no reconoce el nombre, y aparece el error 13, 9, o 1004 en tiempo de ejecucion.

CODIGO:
(Generar archivo nuevo)
NOMBRE = Cells(2, 7).Value
FECHA = Cells(9, 13).Value
TORRE = Cells(10, 8).Value
Workbooks.Add
Sheets("Hoja1").Select
Sheets("Hoja1").Name = NOMBRE
ActiveWorkbook.SaveAs Filename:=NOMBRE & TORRE, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Call CopiarDatos(NOMBRE, FECHA, TORRE)

Sub CopiarDatos(NOMBRE, FECHA, TORRE As Variant)
Windows("MODELO.xls").Activate
Sheets("OT").Select
Range("A1:L76").Select
ActiveSheet.Shapes("Picture 1").Select
ActiveSheet.Shapes.Range(Array("Picture 1", "Text Box 2")).Select
ActiveSheet.Shapes.Range(Array("Picture 1", "Text Box 2", "Text Box 3")).Select
Selection.Copy
Windows(NOMBRE.xls").Activate ( EL PROBLEMA ESTA EN ESTA LINEA)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Si quieres enviame el archivo y lo veo calma,

saludos

Ya esta resuelto- THANKS