Save Sheets as Separate Wksheets
 

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.

Save Sheets as Separate Wksheets
 

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.

Save Sheets as Separate Wksheets
 

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.

Save Sheets as Separate Wksheets
 

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.