Savings Each Sheet as a Separate File
 

Hi,

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

Thank

--
STEVE
-----------------------------------------------------------------------
STEVEB's Profile: http://www.excelforum.com/member.php...nfo&userid=187
View this thread: http://www.excelforum.com/showthread.php?threadid=40094

Savings Each Sheet as a Separate File
 

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

Savings Each Sheet as a Separate File
 

Thanks Jim!

Everything worked great! I really appreciate your help!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=400941