Bardzo proszę o pomoc. Muszę skopiować około 400 par arkuszy (złożonych z określonych czterech arkuszy) i utworzyć z nich 400 skoroszytów. Do tej pory nagrałem sobie takie Makro i zmodyfikowałem na potrzeby tych 400 par, ale kod makra jest ogromie długi. Chciałem zrobić pętlę, która korzystałaby z nazw arkuszy umieszczonych w słowniku, ale nie potrafię podmieniać nazw arkuszy, które umieszczone byłyby w pętli. Nazwy arkuszy są umieszczone w cudzysłowiu jak jakiś tekst. W załączeniu przesyłam przykładowy plik z dwoma parami arkuszy do skopiowania i nagrany kod. Proszę o pomoc.
Sub Eksport_2_raporty()
Sheets(Array( " 0202SUMA " , " 0202WDT " , " 0202WNT " , " 0202WU " )).Select
Sheets( " 0202WU " ).Activate
Sheets(Array( " 0202SUMA " , " 0202WDT " , " 0202WNT " , " 0202WU " )).Copy
ChDir " C:\Users\mirek\Desktop\R3.2_05.2018 "
ActiveWorkbook.SaveAs Filename:= _
" C:\Users\mirek\Desktop\R3.2_05.2018\0202_05.2018.xlsx " , FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets(Array( " 0203SUMA " , " 0203WDT " , " 0203WNT " , " 0203WU " )).Select
Sheets( " 0203WU " ).Activate
Sheets(Array( " 0203SUMA " , " 0203WDT " , " 0203WNT " , " 0203WU " )).Copy
ChDir " C:\Users\mirek\Desktop\R3.2_05.2018 "
ActiveWorkbook.SaveAs Filename:= _
" C:\Users\mirek\Desktop\R3.2_05.2018\0203_05.2018.xlsx " , FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub