automatisk nummer i excel (macro'er)

Sub NyFak()
Dim Ny, Svar
Sheets("Faktura").Activate
If Range("H14") = "" Then Range("H14").Value = "0001-06"
Ny = Format(Left(Cells(14, 8), 4) + 1, "0000") & "-" & Format(Now(), "yy")
Svar = MsgBox("Indsæt nyt Faktura nr. ", vbOKCancel)
If Svar = 1 Then Range("H14").Value = Ny
End Sub

Fedt, det virker næsten, men ville nu helst ha' at den macro køre automatisk når man åbner dokumentet faktura eller vælger print, mangler osse den automatisk opdater dato.
Jeg vil give flere point end 60

60 point er nok, så luk blot det andet spørgsmål :-)
start med at lægge denne ind i This Workbook

Private Sub workbook_open()
Dim Ny, Svar
Sheets("Faktura").Activate
If Range("H14") = "" Then Range("H14").Value = "0001-06"
Ny = Format(Left(Cells(14, 8), 4) + 1, "0000") & "-" & Format(Now(), "yy")
Svar = MsgBox("Indsæt nyt Faktura nr. ", vbOKCancel)
If Svar = 1 Then Range("H14").Value = Ny
End Sub

resten følger når jeg lige får tid ellers efter arb.tid

put denne linie ind lige før End sub
range("L14").value=now()

jeg oprettet kun det andet spørgsmål, fordi jeg fik af vide man gik efter point.

den er helt i top nu :-)
Hvad nu hvis man ikke lukker dokumentet, hvordan får jeg så den til at opdatere efter 2 print...

vi mangler denne i This Workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Ny, Svar
Sheets("Faktura").Activate
If Range("H14") = "" Then Range("H14").Value = "0001-06"
Ny = Format(Left(Cells(14, 8), 4) + 1, "0000") & "-" & Format(Now(), "yy")
Svar = MsgBox("Indsæt nyt Faktura nr. ", vbOKCancel)
If Svar = 1 Then Range("H14").Value = Ny
End Sub

Dette er bare total perfekt :-)

Mange tusinden tak for hjælpen.

velbekom
du skal bare markere box med mit navn, og klik accepter

skal spørgsmål oprettes....

den macro excelent hjalp med, virker men bare ikke på når man skal lave mange fakura, da jeg efter print skal sidde og slette alle data, før jeg kan lave en ny.
Har nogen gode forslag og har lyst til at hjælpe