Dialogfeld öffnet nicht

Sub TypKopieren() laufen ist die das Dialogfeld geöffnet.
Wie immer sitzt das Problem vor dem Bildschirm, aber ich bekomme das nicht hin
Vielen Dank für Hilfe
O:Test.xlsm Modul 1

Sub Dateiöffnen()
FileCopy "O:\ Türen.xlsm", "C:\Hugo 2020\Tempkalk.xlsm"                                          _
Workbooks.Open "C:\Hugo 2020\Tempkalk.xlsm"
Application.Run "Tempkalk.xlsm!TypKopieren"
End Sub

C:Tempkalk.xlsm Modul 1

Sub TypKopieren()
Windows("Test").Activate
Workbooks("Tempkalk.xlsm").Sheets("HT").Range("A12") = ActiveCell.Offset(0, -4)
ActiveWorkbook.Close savechanges:=True
Windows("Tempkalk.xlsm").Activate
Call Userdialog
End Sub


Sub Userdialog()
dlgUserdialog.Show
End Sub