Hi,

I get a sent a workbook that has around 100 worksheets in it.
is it possible to export all of these worksheets out to new files with
the name of each new file to be that of the worksheet?

Pete.

With no validation...

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim NewWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'to a new workbook
Set NewWks = ActiveSheet
With NewWks.Parent
.SaveAs Filename:="C:\temp\" & NewWks.Name
.Close savechanges:=False
End With
Next wks
End Sub



PeterRad wrote:

Hi,

I get a sent a workbook that has around 100 worksheets in it.
is it possible to export all of these worksheets out to new files with
the name of each new file to be that of the worksheet?

Pete.

--

Dave Peterson

Thank you Very Much
that works great.

Pete.


Dave Peterson wrote:

With no validation...

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim NewWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'to a new workbook
Set NewWks = ActiveSheet
With NewWks.Parent
.SaveAs Filename:="C:\temp\" & NewWks.Name
.Close savechanges:=False
End With
Next wks
End Sub



PeterRad wrote:

Hi,

I get a sent a workbook that has around 100 worksheets in it.
is it possible to export all of these worksheets out to new files with
the name of each new file to be that of the worksheet?

Pete.

--

Dave Peterson