Excel - error en el metodo select de la clase range

Private Sub cmdGuardaHoja_Click()
Dim nombre As String
nombre = Range("L2").Value
Range("A1:K47").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste


Columns("A:A").Select
Selection.ColumnWidth = 15.43
Columns("B:B").Select
Selection.ColumnWidth = 41.71
Columns("C:C").Select
Selection.ColumnWidth = 20
Columns("D:D").Select
Selection.ColumnWidth = 16.14
Columns("E:E").Select
Selection.ColumnWidth = 24.14
Columns("F:F").Select
Selection.ColumnWidth = 16.71
Columns("G:G").Select
Selection.ColumnWidth = 8.14
Columns("H:H").Select
Selection.ColumnWidth = 8.14
Columns("I:I").Select
Selection.ColumnWidth = 8.14
Columns("J:J").Select
Selection.ColumnWidth = 8.14
Columns("K:K").Select
Selection.ColumnWidth = 12.14




ActiveWindow.Close 'Cerrar el archivo



ActiveWindow.DisplayGridlines = False

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:=Workbooks("CestaticketSocialista.xlsm").Path & "\" & nombre & ".xlsx"

Windows("CestaticketSocialista.xlsm").Activate
Range("A1").Select
MsgBox (" se guardo correctamente !")

End Sub
error en el metodo select de la clase range. Ayuda con esta macro. Esta macro funciona perfectamente en una hoja con un boton de auto formas pero cuando la traslade a otro proyecto donde tengo un boton activex para ejecutar la la macro me da el error: error en el metodo select de la clase range. YA QUE NECESITO ESTA MACRO PARA QUE ME AJUSTE LAS COLUMNAS EN LA HOJA DE COPIA DESTINO No entiendo PORQUE EL ERROR SI FUNCIONA EN EL OTRO LIBRO pero por favor le agradezco su valiosa AYUDA !!!!!!!

Este código me funciona bien hasta la línea 26 donde esta el ActiveWorkbook.SaveAs


Sube el libro que funciona y el que no funciona.
También estaría bien si dices donde da el error, el fallo puede estar en el libro y no en la macro.

Saludos.
\\//_