Projekt nicht auffindbar

ich hab da mal wieder ein Problem.

Hier erst mal etwas VBA-Code:

Private Sub UserForm_Initialize()

Dim UserName As String 'The current users notes name
Dim session As Object 'The notes session
Dim i As Integer

'Dateinamen auslesen
Filename = ActiveWorkbook.Name

Me.optFF = True
Me.frm3D.Enabled = False
Me.optSB.Enabled = False
Me.optSB = True
Me.optConverter.Enabled = False
Me.lblAQ.Caption = "rm"
Me.lblDQ.Caption = "rm"
Me.CmdStep.Caption = "Continue with Step 2"
Me.cmdBack.Visible = False

'Aktuelles Datum als Reklamationsdatum einsetzen
Me.lblDate2.Caption = Format(Date, "yyyy-MM-dd")
Me.cboTBM.AddItem "no"
Me.cboTBM.AddItem "yes"
Me.cboTBM.ListIndex = 0

'Start a session to notes
Set session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
UserName = session.UserName

'UserName von Lotus Notes als Name eintragen
Me.lblUser2.Caption = Mid(Left(UserName, InStr(1, UserName, "/") - 1), 4)

'CC-Auswahl für PSM Kempten
Select Case Me.lblUser2.Caption

    Case Is = "Manfred Marz", "Ruediger Mueller", "Gerd Hoellein" ', "Bertram Mueller"
        Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
        Me.opt3D = True
        Me.lblCNo.Enabled = False
        Me.txtCustomerNo.Visible = True
        
    Case Is = "Marc Luetgendorff", "Sandra Echtler" ',"Bertram Mueller"
        Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
        Me.optFF = True
        Me.lblCNo.Enabled = False
        Me.txtCustomerNo.Visible = True
        
    Case Is = "Erika Stubenvoll", "Sabina Zalac", "Karina Niederbacher" ', "Bertram Mueller"
        Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
        Me.cboSachbearbeiter.Enabled = False
        Me.opt3D = True
        Me.lblCNo.Enabled = False
        Me.txtCustomerNo.Visible = True
        
    Case "Regina Gloeggler", "Norbert Preussner", "Diana Pichler", "Simone Bartenschlager" ', "Bertram Mueller"
        Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
        Me.cboSachbearbeiter.Enabled = False
        Me.optFF = True
        Me.lblCNo.Enabled = False
        Me.txtCustomerNo.Visible = True
        
    Case Else
        Me.cboCC.RowSource = "Daten!CCs"
End Select
Me.cboCC.ListIndex = 6
Me.cboCC.SetFocus
End Sub