Thanks, but additional control needed
1) Column widths are destroyed
2) New book has three (un-named) sheet1, sheet2, sheet3. Need one NAMED sheet called "Quote"
I was using (but do not want to hide, but really not copy those columns
Sheets("Quote Tool").Select
Sheets("Quote Tool").Copy
Columns("G:G").ColumnWidth = 3.86
Columns("G:G").Select
Range("G2").Activate
ActiveWindow.ScrollColumn = 2
Columns("G:ak").Select
Range("G2").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 1