Copy Column Widths to New Sheet

[Mozzz]

When I run this code it doesn't copy the column widths to the new sheet. It appears to be copying the wrap text but not the column widths. Sheets(1) is Tab delimited Data out of our Computer System.

[CODE' Updated 8-19-11, Idlse Inventory from RPX Adp - WIT-FI
' Change Titles and Set Columns
Cells.EntireColumn.AutoFit
Cells(1, 15) = "SVC WARR EXP DATE"
With Columns("O:Q")
.ColumnWidth = 10
.HorizontalAlignment = xlCenter
.WrapText = True
End With
' Post Data Lease Units
Range("A2").AutoFilter _
Field:=1, Criteria1:="16100"
Sheets.Add(After:=Sheets(1)).Name = "Lease"
With Sheets(1)
.Range(.Cells(1, 2), .Cells.SpecialCells(xlLastCell)).Copy _
Destination:=Sheets(2).Range("A1")
End With][/CODE]

Any Suggestions?

Thanks,

Mozzz

 

[Weaver]

add these extra lines before the 'end with'

    .Rows("1:1").Copy
    Sheets("Sheet2").Rows("1:1").PasteSpecial Paste:=xlPasteColumnWidths

 

[Mozzz]

Since I am not copying the first column of the activesheet I ran into a little problem with Rows("1:1"). I just used Range instead and it works great. Thanks for getting me going in the right directions.

Thanks again,

Mozzz