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)

Sub SpremiNaDesktop()
    Dim datoteka As String, datum As String, imeKopirajListe() As String
    Dim novaKoija As Workbook, original As Workbook
    Dim ws As Workshet
    Dim wsList1 As Worksheet, wsList2 As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Set wsList1 = wb.Workshets("Lst1")
    Set wsList2 = wb.Worksheets("List2")
    
    'Postavi nazive listova koje ?eli? kopirati
    imeKoprajListe = Array(wsList1.Name, wsList2.Name)
    
    'Postavi naziv datoteke i datum
    datoteka = Environ("USERPROFILE") & "\Desktop\" & Format(Date, "dd-mm-yy") & ".xlsx"
    datum = Format(Date, "dd-mm-yy")
    
    'Stvori novu radnu knjigu i kopiraj listove
    Set novaKopja = Workbooks.Add
    For Each sheetName In imeKoprajListe
        Set ws = wb.Sheets(sheetName)
        ws.Copy After:=novaKopja.Sheets(novaKopija.Sheets.Count)
    Next sheetName
    
    'Kopiraj vrijednosti i oblikovanja, ali bez formula
    For Each ws In novaKopija.Worksheets
        ws.Cells.Copy
        ws.Cells.PasteSpecial xlPasteValuesAndNumberFormats
        ws.Cells.PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
    Next ws
    
    Set wsList1 = Nothing
    Set wsList2 = Nothing
    Set ws = Nothing
    Set wb = Nothing
    
    'Spremi novu radnu knjigu i zatvori
    novaKopja.SaveAs fileName:=datoteka, FileFormat:=xlOpenXMLWorkbook
    novaKopja.Close
    
    'Obavijesti korisnika da je radna knjiga spremljena
    MsgBox "Nova radna knjiga spremljena na Desktopu: " & datoteka, vbInformation, "Kopiranje listova"
End Sub

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.

    Dim datoteka As String, datum As String, imeKopirajListe As Variant

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"?

Application.ScreenUpdating = False

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

'Spremi novu radnu knjigu i zatvori
    novaKopja.BuiltinDocumentProperties("Author").Value = "Humans Rules Not ChatGPT"
    novaKopija.SaveAs fileName:=datoteka, FileFormat:=xlOpenXMLWorkbook
    novaKopja.Close

Thank YOU 6StringJazzer and ExcelForum!