Navigation

   Hej Har fået hjælp til dette og det virker fint men koden lukker alle åbne excel filer.
Hvad skal der ændres / tilføjes for at det kun bliver den aktive fil der lukkes ?
Her er koden 

Sub GemSom()
    Dim Path As String
    Dim Filename1 As String
    Dim Filename2 As String
    Path = "F:\2019\Ugerapport\"
    Filename1 = Range("C4")
    Filename2 = Range("H3")
    ActiveWorkbook.SaveAs Filename:=Path & Filename1 & "-" & Filename2
    Application.Wait Now + TimeSerial(0, 0, 1)
    Application.DisplayAlerts = False
    Application.Quit
End Sub

Hilsen Torben

Navigation

Gem og luk kun ark