On Error Resume Next
   ' B1 er en celle med dato, men det kan du gøre som du vil
     wdApp.activedocument.SaveAs "C:\" & "Menu " & Format(Range("B1").Value, "dd-mm-yy") & ".docx"
    
    wdApp.documents.Close savechanges:=wddonotsavechanges
    
    
    wdApp.Quit
 

    Set wdApp = Nothing
    Set wdDoc = Nothing
    
    ActiveWindow.DisplayGridlines = True
    Application.CutCopyMode = False

    
End Sub

Sub b_test()

    Dim wdApp As Object
    Dim wdDoc As Object
    
        'Fra Allan
        '
        Dim ArkNavn, DataSti, Filnavn As String
        Dim objFolders As Object
        Set objFolders = CreateObject("WScript.Shell").SpecialFolders

        'Ark2 udskiftes alle steder med det Ark som skal bruges - word vil kun kopiere fra det aktive ark
        DataSti = objFolders("mydocuments") & "\MenuPlan\" 'Der hvor filen skal gemmes, husk at afslutte med \
        Filnavn = "Menuplan_" & Sheets("Ark2").Range("A1").Value & ".docx"

        'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
        If Dir(DataSti, vbDirectory) = "" Then
            MkDir DataSti
        End If

    Application.ScreenUpdating = False
    
    Set wdApp = GetObject("", "Word.Application")
    
    Set wdDoc = wdApp.documents.Add
     
    Worksheets("Ark2").Activate 'word vil kun kopiere fra det aktive ark
    ActiveWindow.DisplayGridlines = False
    ' ellers bliver gridlines kopieret over på word
    
    Range("a1:f25").Copy
    'det kan kun være det kopieret område som overføres til word
    wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
    Placement:=wdInLine, DisplayAsIcon:=False
    
    
    
    'Slette filen hvis den allerede findes
    On Error Resume Next
    Kill DataSti & Filnavn
    
    On Error Resume Next
    wdDoc.SaveAs DataSti & Filnavn

    wdApp.documents.Close savechanges:=False
    
    On Error GoTo 0

    wdApp.Quit
 

    Set wdApp = Nothing
    Set wdDoc = Nothing
    
    ActiveWindow.DisplayGridlines = True
    Application.CutCopyMode = False

    Worksheets("Ark1").Activate
    Application.ScreenUpdating = True
End Sub