Autonummer hjælp

Hejsa

Fra en tidligere tråd har jeg brugt læst hvordan man laver autonummer, men jeg sidder fast nu:

Jeg har lavet et excel ark som en "master" (xls-fil). Når jeg åbner arket, gemmer den som en ny og kalder arket for faktura 0002. Men når jeg åbner masteren igen, skriver den at faktura 0002 allerede eksistere. Dvs. den gemmer den ikke som en ny fil og kalder den 0003. Det gør den kun hvis jeg åbner faktura 0002.

Nogen der kan hitte ud hvad jeg gør forkert?

Her er min kode:

Private Sub Workbook_Open()

If ActiveWorkbook.Name = "Quotation_Fomular.xls" Then
    Worksheets("Motor Quotation").Range("B5") = Worksheets("Motor Quotation").Range("B5") + 1

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="Quotation_", FileFormat:=xlNormal
    Application.DisplayAlerts = True

    StiNavn = "O:\02_A&D\AD_Kunder\g-h-i\Grundfos DK 8120747\Tilbud\Quotations\2009\"
    Filnavn = StiNavn & "Quotation_" & Format(Worksheets("Motor Quotation").Range("B5"), "0000")
    If Dir(Filnavn & ".xls") = "" Then
        ActiveWorkbook.SaveAs Filename:=Filnavn, FileFormat:=xlNormal
  Else
    MsgBox "Quotation does allready excist - Program terminated", vbCritical + vbOKOnly, "Kritisk fejl!"
    Application.Quit
    End If
End If

    With ActiveSheet
      .Protect Password:="ncj", UserInterfaceOnly:=True
      .EnableOutlining = True
    End With
   
End Sub