| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| a name in my wksheets to schedule it to b hilited in 90 days ? | Excel Discussion (Misc queries) | |||
| Save 2 separate data imports in separate worksheets on the same ex | Excel Worksheet Functions | |||
| Macro to save sheets as separate workbooks | Excel Discussion (Misc queries) | |||
| Macros in Personal.xls don't show up in other wksheets | Setting up and Configuration of Excel | |||
| How do I save sheets in a workbook to separate files? | Excel Worksheet Functions | |||
Linear Mode
