Gem i xlms med celle info

Hej alle,

Jeg har lavet en knap
og lavet det her til den

Private Sub CommandButton2_Click()
Dim filnave As String


Filnavn = Range("e9") & " - " & Range("b5") & " - " & Range("b6").Value
fileTosave = Filnavn

Flt = "Excel Xlms(*.xlms),*.xlms,"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, , Titel)
   

End Sub

Hvorfor er det den ikke gemmer i xlms den kommer op med hvor jeg vil gemme og celle info som en skal men den gemmer det ikke når jeg trykker gem.

Nogle som har en løsning.