Problemer med at skulle åbening ny faktura

Hej eksperter.

Jeg kan ikke rigtig hvorfor den ikke vil skrive nyt faktura nummer og ny dato, når jeg trykker på knappe for at åbne en ny faktura.

Den skriver godt nok begge ting første gang man åbner skabelonen.

Der skal trykkes to gange på knappen for at den udføre opgaven.

ellers virker alt som det skal.

Ligge lige den del af koden ind som skal udføre opgaven.

--------------------------- åbner ny faktura -----------------

Private Sub CommandButton2_Click()
   
    Workbooks.Open ("c:\Faktura\excelfakturaDB\midas(Version 3_0).xlt") ' ret til den fil du åbner ved ny faktura
   
    modDemo.BookCloseAllow

ThisWorkbook.Saved = True

ThisWorkbook.Close
   
ThisWorkbook.Saved = True
 
End Sub


-------------------- faktura nummer ----------------------------

Sub RapNr()
Dim RapFil
Dim NyNr
Dim GiNr

    RapFil = "c:\Faktura\excelfakturaDB\rap.txt"
    Open RapFil For Input As #1
    Line Input #1, GiNr
    Close #1
    Open RapFil For Output As #1
    NyNr = Val(GiNr) + 1
    Print #1, NyNr
    Close #1
    Sheets("Faktura").Range("d1000").Value = NyNr
   
End Sub

------------------------------ dato -----------------------------

Sheets("Faktura").Range("D5").Value = Date



Håber er der en der vil hjælpe med dette, på forhånd tak.

Hilsen Kenneth