Another one that create a new folder for you
http://www.rondebruin.nl/copy6.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"ToddEZ" wrote in message ...
Norman, you are truely "the man".
That works perfectly.
"Norman Jones" wrote:
Hi Todd,
Try something like:
'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
For Each SH In ActiveWorkbook.Worksheets
SH.Copy
With ActiveWorkbook
.SaveAs Filename:=SH.Name & ".xls", _
FileFormat:=xlWorkbookNormal
.Close SaveChanges:=False
End With
Next SH
End Sub
'<<=============
---
Regards,
Norman
"ToddEZ" wrote in message
...
Hello,
I am looking for some help to create a macro that saves each sheet in a
workbook as a separate worksheet named the same as the sheet.
...not sure where to begin.
Thanks in advance.