Re: Schematic Variant:Replace part..

Hello, I don't know what do you mean, but if you want to open the DataBook

sub OpenDxDataBook()

Set addin = launchAddin("DxDataBook.AddCtrl.1", "DxDataBook", "", 3, "")

  If Not (addin Is Nothing) Then

   Scripting.AddTypeLibrary("DxDataBook.AddCtrl.1")

   If Not addinObj.Visible Then

    MsgBox "Addin not visible, DxDataBook will be started"

   End If

   addin.Visible = visible

  end if

End sub

Function launchAddin(progID, localName, associatedScript, defaultPlacement, shortcutKey)
' launch an Addin if it's not already running
Dim toolBarMenu: toolBarMenu = False
Dim quiet: quiet = True
Dim groupName: groupName = ""

Set launchAddin = alreadyLoaded(localName)

If launchAddin Is Nothing Then
' add it to the addins collection, which will launch it
  MsgBox "Addin not loaded, Variant manager will be started, this may take a while..."
  Set launchAddin = Addins.Add(progID, localName, associatedScript, defaultPlacement, shortcutKey, groupName, quiet, toolbarMenu)
 
  If launchAddin Is Nothing Then
   Msgbox "Addin not created."
  End If
 
End If

End Function