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