I have an excel file that contains 80 worksheets. I want to automatically
convert each worksheet into own new excel file. How can I do that without
copying and pasting?

Maybe some sort of macro:

Option Explicit
Sub testme()

Dim wks As Worksheet

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

End Sub

Make sure C:\temp\ already exists (or change the code to point at an existing
folder)

G wrote:

I have an excel file that contains 80 worksheets. I want to automatically
convert each worksheet into own new excel file. How can I do that without
copying and pasting?

--

Dave Peterson

Thanks Dave!! I appreciate your quick response! I tested the script and it
works!!

"Dave Peterson" wrote:

Maybe some sort of macro:

Option Explicit
Sub testme()

Dim wks As Worksheet

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

End Sub

Make sure C:\temp\ already exists (or change the code to point at an existing
folder)

G wrote:

I have an excel file that contains 80 worksheets. I want to automatically
convert each worksheet into own new excel file. How can I do that without
copying and pasting?

--

Dave Peterson