Macros( Me da error en Boton Control Activex

[robert0426]

Buenas Tardes, mi consulta es la siguiente ,tengo una secuencia en macros para que realize una copia de una hoja en otro libro y la guarde en una determinada ruta, este me funciona perfectamente con el boton de Formulario, pero al realizar este mismo macros en un boton Activex me lanza un error de compilacion.

Por favor su ayuda , no puedo subir el archivo porque es demasiado pesado , este es el macros...

Sub Macro1()

Application.ScreenUpdating = False

Range("D8").Select

Selection.Copy

Sheets("Liquidacion").Select

Range("F11").Select

ActiveSheet.Paste

Sheets("Detalle").Select

Range("E8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Liquidacion").Select

Range("F12").Select

ActiveSheet.Paste

Sheets("Detalle").Select

Range("F8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Liquidacion").Select

Range("H19").Select

ActiveSheet.Paste

Sheets("Detalle").Select

Range("G8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Liquidacion").Select

Range("H20").Select

ActiveSheet.Paste

Sheets("Detalle").Select

Range("H8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Liquidacion").Select

Range("F15").Select

ActiveSheet.Paste

Range("I11:I15").Select

Application.CutCopyMode = False

Selection.Copy

Range("F11:F15").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("H22").Select

Selection.Copy

Range("H19:H20").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("H22").Select

Sheets("Detalle").Select

Sheets("Liquidacion").Select

Columns("A:L").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Add

Columns("A:L").Select

ActiveSheet.Paste

Range("F29").Select

NombreArchivo = "C:\Users\Roberto\Nueva\" <<----- Cuando me sale el error esta parte me marca

NArchivo = Range("F11")

ActiveWorkbook.SaveAS NombreArchivo & NArchivo, , , , , , , , , , , False

ActiveWindow.Close

Sheets("Detalle").Select

Range("B7").Select

End Sub

[robert0426]

Alguien se anima , por favor?