Copy multiple sheets including active sheet vba

I'm trying to copy multiple sheets to new file. Everything works fine but when I try to put in the array my active sheet I get an error 9.
I'm trying to copy the activesheet along with some others which have a standard name, but active sheet isn't always the same. I have set my activesheet to be sheetA but it doesn't work.
my code right now is

Please Login or Register  to view this content.

Please help and thank you.

Vba is just great and you guys are the best.
Thank you very much. It worked of course.