Macro for worksheet to workbook

  • Thread starter Thread starter Brian
  • Start date Start date
B

Brian

Can someone help me with a macro? I am looking for
something that will take each of my worksheets and copy
them to their each individual workbook? TIA
 
Try this Brian

Sub test()
Application.ScreenUpdating = False
For a = 1 To Worksheets.Count
Sheets(a).Copy
ActiveWorkbook.SaveAs Sheets(1).Name
ActiveWorkbook.Close False
Next a
Application.ScreenUpdating = True
End Sub
 
Thanks Ron!

-----Original Message-----
Try this Brian

Sub test()
Application.ScreenUpdating = False
For a = 1 To Worksheets.Count
Sheets(a).Copy
ActiveWorkbook.SaveAs Sheets(1).Name
ActiveWorkbook.Close False
Next a
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)




"Brian" <[email protected]> wrote in
Click to expand...
message news:[email protected]...
 
Back
Top