VBA: Gem en xlsx-fil

Hvad mener du med "en mappe, som  jeg arbejder i"? Er det samme mappe som den oprindelige fil ligger i?

Ja :-)

Prøv med denne

Sub GemArk()
    Application.ScreenUpdating = False
    Dim aktivmappe As String
    Dim thisfile As String
    Dim filpart As String
    Sheets("rådata").Select
    filpart = ActiveSheet.Range("c6").Value
    aktivmappe = ThisWorkbook.Path
    Sheets("bogføring").Select
    Sheets("bogføring").Copy
    thisfile = Date & "_reference" & filpart
    ActiveSheet.SaveAs Filename:=aktivmappe & thisfile & ".xlsx"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    Sheets("Stamdata").Select
End Sub

Tusind tak :-) Det virker :-)