Save wb to Desktop?

Hello, kind people!
i have a problem with vb script where i want to save active workbook to desktop.
List1(CRO) is Sheet1
List2(CRO) is Sheet2

Run-Time error 13 Type mismatch at line: imeKopirajListe = Array(wsList1.Name, wsList2.Name)

Please Login or Register  to view this content.

I assume that there will or is problwem when there are more excel workbooks is opened with same sheet name.
Thanks in advance for your precious time!

The return of an Array function should be assigned to a Variant.

Please Login or Register  to view this content.

The rest of your code should without other changes.

Thank you , sir. Thank you ExcelForum.
Code is a bit slow. Should i add Application,ScreenUpdating??

Can i add author to new excel file? Code author name to new file??

What is "a bit slow"?

Please Login or Register  to view this content.

usually speeds things up. You are creating a new file and doing a save, that takes time.

Please Login or Register  to view this content.

Thank YOU 6StringJazzer and ExcelForum!