Macro for worksheet to workbook

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
 
R

Ron de Bruin

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
 
B

Brian

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]...
 
Top