Hallo,

oha, da hat's mir den Code zerschossen:

Option Explicit

Public Sub import_Test()
Dim strSourcePath As String, strTargetpath As String
Dim strFrmName As String
strSourcePath = ThisDocument.Path & "\source_Form_Import.docm"
strTargetpath = ThisDocument.FullName
strFrmName = "UserForm1"
Application.OrganizerCopy Source:=strSourcePath, Destination:=strTargetpath, _
   Name:=strFrmName, Object:=wdOrganizerObjectProjectItems
End Sub

Public Sub test()
 UserForm1.Label1.Caption = "Neu"
 UserForm1.Show
End Sub

Gruß,