Makro fehler

Guten Tag,
ich öffne eine Datei und jetzt soll, wenn die Datei offen ist, die Suchmaske: "UFsuchfeld.Show"
geöffnet werden.
Leider klappt es nicht.
Vielleicht kann mir jemand einen Tipp geben ?

Public Sub Datenbank_aktivieren()
  Dim wksQUELLE As Worksheet           
  Dim wksZIEL As Worksheet          
  Dim wkbZIEL As Workbook, wkbQUELLE As Workbook
  Dim rngZIEL As Range
  Dim strSUCH As String
  Const cstr_wkbQUELLE As String = "Datenbank1.xlsm"
  Const cstr_wksQUELLE As String = "Kunden"
  Const getStrPassWort = "ph"
  
  Set wkbQUELLE = ActiveWorkbook
  Set wksQUELLE = ActiveSheet 
  Application.ScreenUpdating = False
  On Error Resume Next
  Set wkbZIEL = Workbooks(cstr_wkbQUELLE)
  On Error GoTo 0
  If wkbZIEL Is Nothing Then
    Set wkbZIEL = Workbooks.Open("D:\" & cstr_wkbQUELLE)
        Else
        wkbZIEL.Activate
  End If
  Set wkbZIEL = Workbooks.Open("D:\Datenbank1.xlsm")
 Application.ScreenUpdating = True
         
 wkbZIEL.Activate
Call wkbZIEL.UFsuchfeld.Show
End Sub