Breaking a file in different files

[Vineet Jain]

Hi,

I have an Excel file with 40 worksheets. I need to create
40 files each with one of these 40 worksheets. Could you
help me please.

Thanks & Regards
Vineet

 

[Ron de Bruin]

Try this one

Sub test()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Copy
ActiveWorkbook.SaveAs Sheets(1).Name
ActiveWorkbook.Close
Next a
Application.ScreenUpdating = True
End Sub

 

[Lady Layla]

In the file in question, put your cursor on the tab, right click, select
move/copy, in to book, select new book , check copy if you want to keep your
original file intact, select ok, save file with name you want to name it



: Hi,
:
: I have an Excel file with 40 worksheets. I need to create
: 40 files each with one of these 40 worksheets. Could you
: help me please.
:
: Thanks & Regards
: Vineet