Lukke excelark via macro

Er det "user", der er problemet? Hvis jeg erstatter med mit eget brugernavn, fungerer det fint hos mig.

Men ellers prøv denne, som også fungerer hos mig:

Sub test()
Dim filnavn As String
Dim brugernavn As String

filnavn = Range("C1").Value
brugernavn = Environ("Username")

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\" & brugernavn & "\Documents\" & filnavn & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges:=False

End Sub

Med tjek af, at der er indhold i celle C1:

Sub test()
Dim filnavn As String
Dim brugernavn As String

filnavn = Range("C1").Value
brugernavn = Environ("Username")

If Range("C1").Value <> "" Then
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\" & brugernavn & "\Documents\" & filnavn & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges:=False
Else
MsgBox "Der mangler et filnavn i celle C1"
End If

End Sub

Kan naturligvis forfines væsentligt, bl.a. således at det sikres, at der er et gyldigt filnavn i celle C1 (uden "forbudte" karakterer mv.)

Hej,

Det er umiddelbart ikke 'user-problem' - jeg havde ændret stien.

Nedenfor er den KOMPLETTE kode

Sub Tekstfelt1_Klik()

    Range("C1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.Delete



    FilNavn = Range("c1").Value
        ActiveWorkbook.SaveAs Filename:= _
        "R:\Company\Interne forbedringer\19 Produkt standardiseringer\Ændringsforslag\" & FilNavn & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            ActiveWorkbook.Save
            ActiveWindow.Close SaveChanges:=False
            End Sub


Function UserName()

UserName = Application.UserName

End Function


Kan det forklare mit problem?

Filen bliver fint nok gemt - det ligner at det er 'close-funktionen' der driller...