Macro to copy specific columns to new worksheet

[UHsoccer]

I need a macro to copy a range of clolumns and rows (say b2:g80) from one of my sheets to a new spreadsheet

 

[Audiojoe]

Try:

Range("B2:G80").Copy
Workbooks.Add
ActiveSheet.Paste

Audiojoe

 

[Mark O'Brien]

Let's say that we are copying you range "B2:G20" from Sheet1 to Sheet2:<pre>
Sheets("Sheet1").Range("B2:G80").Copy Destination:=Sheets("Sheet2").Range("B2:G80")</pre>

HTH

EDIT:: Oops, didn't see that you needed a new workbook. Use AudioJoe's.
_________________<font color = green> Mark O'Brien
This message was edited by Mark O'Brien on 2002-04-29 09:42

 

[UHsoccer]

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