Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Requires a reference to Microsoft InfoPath

Private Sub cmdRegisterForm_Click()     Dim ap As New InfoPath.ExternalApplication     ap.RegisterSolution ThisWorkbook.Path & "\manifest.xsf"     ap.Quit     Set ap = Nothing End Sub