Snasui Excel Forum

Code: Select all

Private Sub Workbook_Addinlnstall()
    With Application.CommandBars("Formatting").Controls.Add
        .Caption = "FAHP"
        .Style = msoButtonCaption
        .OnAction = "ThisWorkbook.CallProgram"
    End With
End Sub

Private Sub Workbook_AddinUninstall()
    On Error Resume Next
        Application.CommandBars("Formatting").Controls("Identify incorrect Date").Delete
    On Error GoTo 0
    
End Sub

Sub CallProgram()
    UserForm1.Show vbModal
End Sub