Excel Makro VBA

Wo füge ich diesen Code ein?

[b]Servus Gemeinde,[/b]

WO FÜGE ICH DIESEN CODE REIN?

Userform soll beim Öffnen der Datei angezeigt werden
[code]
Option Explicit

Private Sub Workbook_Open()
'UserForm1.Show
Dim rng_Zelle As Range
Dim str_Liste1 As String
Dim str_Liste2 As String

str_Liste1 = ""
str_Liste2 = ""

For Each rng_Zelle In Range("f3:f100").Cells
If (rng_Zelle.Value - Int(Now()) >= 0) Then

If (rng_Zelle.Value - Int(Now()) <= 10) Then
If (rng_Zelle.Value - Int(Now()) <= 5) Then
str_Liste1 = str_Liste1 & Chr$(10) & rng_Zelle.Offset(0, -5).Value
Else
str_Liste2 = str_Liste2 & Chr$(10) & rng_Zelle.Offset(0, -5).Value
End If
End If

End If
Next rng_Zelle

UserForm1.lbl_Liste1.Caption = str_Liste1
UserForm1.lbl_Liste2.Caption = str_Liste2

UserForm1.Show
End Sub

[/code]


In der Formel der Userform steht:

[code]Option Explicit

Private Sub btn_OK_Click()

Hide

End Sub

Private Sub UserForm_Click()

End Sub
[/code]


In der Datei, in die ich diesen Code einfügen möchte, steht aber bereits in der Arbeitsmappe/Workbook folgender Code:


[code]Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Tabellen").Delete
On Error GoTo 0
End Sub

Private Sub Workbook_Open()
Call Berechnung_formelqm
End Sub
[/code]

Ich nutze Excel 2003. Mit VBA kenn ich mich leider nicht aus.

Wenn ich den Code ins Workbook einfüge, kommt die Fehlermeldung: Compile Error: Ambiguous Name detected: Workbook_Open