Breaking a file in different files

  • Thread starter Thread starter Vineet Jain
  • Start date Start date
V

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
 
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
 
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
 
Back
Top