Gem som

Herj
I mit regneark indsættes automatisk brugernavn i S1. Det er et regneark med makroer.
Jeg vil gerne vil gemme som .xlsx format, men det kan jeg ikke få til at virke. Hvis jeg ændre det til .xls eller .xlsm så virker det.
Makroer skal ikke bruges i den gemte fil.
Sub GemSom ().
filnavn = Range("b2").Value
    ActiveWorkbook.SaveAs Filename:="d:\Users\" & [S1] & "\Desktop\" & filnavn & ".xls"
End Sub