Sub Workbook_Open() #If XLC Then ' Remove all Tabs we have in the default ribbon With Application.Ribbon.Tabs .Clear ' Add new Tab With .Add ' Set Caption and Tag for this tab .Caption = "My Tab" .Name = "Tabs.MyTab" ' Add button to this tab with Open icon With .AddButton ' assign caption visible to user .Caption = "Open File" ' internal name, which we can use in the VB macros .Name = "Button.Open.File" ' icon .Image = "Open.32" ' link this button with subroutine .OnAction = "OnOpenFile" End With End With End With #End If End Sub ' This sub is called when button is pressed Public Sub OnOpenFile MsgBox "OnOpenFile sub is called" End Sub