Automatisk Fakturanummer

Hej,

Jeg er ikke nogen ørn til regneark, så måske findes der nogen, der er ved lidt mere her. Mit problem er en faktura jeg har oprettet i office 2000 (ved godt at der ligger en fakturaskabelon, der kan dette, men vil gerne have min egen).

Jeg har studeret tidligere spørgsmål, og indsat følgende funktion (hvori jeg har ændret navne, så det passer med min navngivning)

Anden metode:

Private Sub Workbook_Open()
'leo.heuser@get2net.dk juni 2000
'Fra skabelonen sættes reference til
'Microsoft Visual Basic for Applications Extensibility 5.3
'i menuen Funktioner (Tools)
Dim WorksheetName As String
Dim WorksheetCell As String
Dim SettingName As String
Dim lLine As Long
Dim InvoiceNumber As Variant
Dim InvoiceNumberCell As Object
Dim TemplateName As String
   
    TemplateName = "Erik.xlt"
    WorksheetName = "Invoice"
    WorksheetCell = "F7"
    SettingName = "Erik"
   
   
    Set InvoiceNumberCell = Worksheets(WorksheetName).Range(WorksheetCell)
    If UCase(ActiveWorkbook.Name) = UCase(TemplateName) Then GoTo Finito
    InvoiceNumber = GetSetting(SettingName, "Invoice", "InvoiceNumber")
    If InvoiceNumber = "" Then
        InvoiceNumber = 1
    Else
        InvoiceNumber = InvoiceNumber + 1
    End If
    SaveSetting SettingName, WorksheetName, "InvoiceNumber", InvoiceNumber
    InvoiceNumberCell.Value = InvoiceNumber
    With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName).CodeModule
        lLine = .ProcBodyLine("Workbook_Open", vbext_pk_Proc)
        .InsertLines lLine + 1, "Exit Sub"
    End With
Finito:
Set InvoiceNumberCell = Nothing
End Sub


Jeg har sat vinge i boksen med: "Microsoft Visual Basic for Applications Extensibility 5.3"

Men fakturaen tæller ikke op, hvergang jeg åbner en ny faktura fra skabelonen får den nummer 1.

Nogen der kan se hvad der går galt?

Mvh
Henrik