indsæt cellebredde i excel

Dim Name As String
Dim Path As String
  Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Efterkalkulation.2001\\\"
  Name = Worksheets(\"Ark1\").Range(\"BO3\")
  MsgBox Path + Name + \".txt\"
    Range(\"BL1:BP71\").Select
    Selection.Copy
    Workbooks.Add
   
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial
hvad er der galt med denne kode ,der er fejl i columnwidths ,Error 1004,hvad kan det være :-)Lillejens

Paste:=xlColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
 
        ActiveWorkbook.SaveAs Filename:=Path + Name
  ActiveWorkbook.Close (0)
End Sub