Excel Macro (VBA) eksporter Aak til nye filer

Denne kommer nærmest:
Men den vil ikke laver fejl i sti'en

E2 = "Users\Public\Desktop"

Sub Save_Worksheet_As_Workbook()
   
    myValuePath = "C:\" & Range("E2") & "\"
   
   
    Dim wb1 As Workbook
    Set wb1 = Workbooks.Add
    ThisWorkbook.Sheets("Liste").Copy Before:=wb1.Sheets(1)
    wb1.SaveAs myValuePath "\Liste_fil.xlsx"

    Dim wb As Workbook
    Set wb = Workbooks.Add
    ThisWorkbook.Sheets("Skema").Copy Before:=wb.Sheets(1)
    wb.SaveAs myValuePath "\Skema_fil.xlsx"
End Sub

http://www.eksperten.dk/list/spoergsmaal/kodak