Savings Each Sheet as a Separate File

[STEVEB]

Hi,

Does anyone have any suggestions to have excel automatically Save each Sheet in a workbook as a separate file?

Thanks

[Jim Thomlinson]

You did not say where you wanted it saved or by what name so here is a basic
shell that you can modify as necessary.

Sub SaveSheets()
Dim wks As Worksheet
Dim wbk As Workbook

For Each wks In Worksheets
wks.Copy
Set wbk = ActiveWorkbook
wbk.SaveAs ThisWorkbook.Path & "\" & wks.Name
Next wks

End Sub
--
HTH...

Jim Thomlinson


"STEVEB" wrote:

>
> Hi,
>
> Does anyone have any suggestions to have excel automatically Save each
> Sheet in a workbook as a separate file?
>
> Thanks
>
>
> --
> STEVEB
> ------------------------------------------------------------------------
> STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872
> View this thread: http://www.excelforum.com/showthread...hreadid=400941
>
>

[STEVEB]

Thanks Jim!

Everything worked great! I really appreciate your help!