Save Sheets as Separate Wksheets

[Guest]

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.

 

[Norman Jones]

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
'<<=============

 

[Guest]

Norman, you are truely "the man".

That works perfectly.

 

[Ron de Bruin]

Another one that create a new folder for you
http://www.rondebruin.nl/copy6.htm