Workbook with several worksheets

[filiplenox]

Hi,

could youhelp me with the following excel problem:

I have aexcel workbook with several worksheets (Workbook X with worksheets A1 , A2, B1,B2, C1, C2…). I would like to write a macro, which can copy each pair ofworksheets (i.e. A1& A2; B1 & B2…..) and that saves the new workbookswith the “Letter-name” of the relevant worksheet pair (e.g. the new workbookthat contains worksheets A1 and A2 should be named “A”; the new workbook thatcontains worksheets B1 and B2 should be named “B” and so on).
The newmacro should keep the original workbook X intact (therefore, the macro shouldcopy the worksheets and not cut them out).

 

[WaterGypsy]

Try fitting this into your code:

Worksheets(Array("A1", "A2")).Copy
ActiveWorkbook.SaveAs ("A.xlsx")
ActiveWorkbook.Close