For each in a LIST in range(“a1:a12”)
Sub test()
For i = 1 To 12
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\ASHISH\Desktop\ABC\book" & 
cells(I,”a”) & ".xlsx"
ActiveWorkbook.Close
Next i
End Sub

From: ashish koul 
Sent: Wednesday, September 07, 2011 9:34 PM
To: excel-macros@googlegroups.com 
Subject: Re: $$Excel-Macros$$ Macro to Copy the sheets from One file to 
Multiple Files

Hi,

Sub test()
For i = 1 To 10
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\ASHISH\Desktop\ABC\book" & i & 
".xlsx"
ActiveWorkbook.Close
Next i

End Sub


On Wed, Sep 7, 2011 at 5:29 PM, SridharBL <sridhar....@gmail.com> wrote:

  Ashish, 

  I need to save the sheets of One Workbook to 12 other workbooks.


  Say, I have One Master excel work book with sheets x and y. These x and y 
sheets should be moved to other 12 workbooks.

  So, now all the 12 Work books will have x & y sheets as of Master excel work 
book.

  Thanks,
  Sridhar BL
  -- 
  
----------------------------------------------------------------------------------
  Some important links for excel users:
  1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
  2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
  3. Excel tutorials at http://www.excel-macros.blogspot.com
  4. Learn VBA Macros at http://www.quickvba.blogspot.com
  5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

  To post to this group, send email to excel-macros@googlegroups.com
   
  <><><><><><><><><><><><><><><><><><><><><><>
  Like our page on facebook , Just follow below link
  http://www.facebook.com/discussexcel





-- 

Regards

Ashish Koul
akoul.blogspot.com
http://akoul.posterous.com/

akoul.wordpress.com
My Linkedin Profile

P Before printing, think about the environment.

 

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

To post to this group, send email to excel-macros@googlegroups.com
 
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to