ungå den skriver når man åbner gammelt doc.

Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel
filnummer = FreeFile
Dim Varenummer As String
   
Open "C:\butik Salgsbilag\regning_nr.txt" For Input As #filnummer
Line Input #filnummer, Varenummer 'Putter 1. linie ind i Varenummer
Close #filnummer
Range("B3").Select
ActiveCell.Value = Val(Varenummer)
Range("B3").Select
ActiveCell.Value = Val(Varenummer) + 1
Range("A4").Select

End Sub
Sub auto_close() 'Denne sub køres automatisk når regnearket lukkes i Excel
 
Dim filnummer As Integer
filnummer = FreeFile
Range("B3").Select
Open "C:\butik Salgsbilag\regning_nr.txt" For Output As #filnummer
Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A1 til filen
Close #filnummer
FilNavn = Range("B3").Value
  If Dir("C:\butik Salgsbilag\" & Year(Date), vbDirectory) <> "" Then
  Else
    MkDir "C:\butik Salgsbilag\" & Year(Date)
  End If
ActiveWorkbook.SaveAs Filename:="C:\butik Salgsbilag\" & Year(Date) & "\ " & FilNavn & "# " & Format(Date, "dd-mm") & ".xls"

End Sub