Copying to a new workbook?

[BDexcel]

Can someone help?

I have a workbook which i run various filters on. I need a code to copy whatever cells shown from A2:Q7000 to a new workbook, could someone help please?

I managed to code to create a new sheet but its causing me issues so wondered could someone assist?

 

[rpaulson]

try this:

make sure your save folder exist, in this case it's c:\test

Sub copy_it()
Range("A2:Q7000").Copy
Set NewBook = Workbooks.Add
NewBook.Worksheets("Sheet1").Range("A1").Select
ActiveSheet.Paste
NewBook.SaveAs Filename:="C:\test\newbook.xls"
ActiveWorkbook.Close
End Sub

hth,
Ross