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)
www.rondebruin.nl
"Brian" wrote in message ...
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