Gem Wookbook, med nyt navn hver gang

Hej,

Jeg har brug for hjælp til en kode, hvor jeg kan definere hvad wookbook skal gemmes som. Den skal kunne enten gemmes som en tekst som er defineret i filen eller som næste nr. i rækken som kan defineres i filen +1.

Jeg har prøvet at lave denne kode:

    Dim FilNavn As String
    FilNavn = Range("H1")
   
    Dim Gemsom As Workbook
   
    Set Gemsom = "C:\Users\Nye bestillinger\" & FilNavn & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=Gemsom

Men den fejler med Type mismatch???