Exporting from worksheets into new workbooks

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have written the following code, which when run, I want to go through all
the sheets in my workbook and and copy and paste the data from these sheets
into new workbooks.

Unfortunatly the code below will cause the data from the same worksheet to
be copied into new workbooks,

Can anyone help

Sub sheetexport()

Dim sheet_var As Worksheet
For Each sheet_var In ActiveWorkbook.Worksheets

Cells.Copy
Workbooks.Add
Application.ScreenUpdating = False
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats

Next
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

how to copy worksheet to new workbook with values only 3
Run-time error 1004 paste method of worksheet class failed 3
Select specific worksheets & copy - code problem 2
Run macro from active workbook whose name keeps changing 20
Copy worksheet, trying to paste to new workbook error assistance. 1
copy to new workbook 1
Copy/Paste into new workbooks 4
conso macro 0

Back
Top