Cannot run the macro… the macro may not be available in this workbook VBA
<p>My question at hand is why do these Macros for creating Menu Command buttons work on my personal computer (Excel 2010/2016), but generate macro may not be available messages on my work one.  My only thoughts are it's relative to the bit /configuration of my work laptop, some various complier issue tied to old VBA libraries, assignment references being missed, &amp; something random related to private Subs. </p>

<p><strong>Macros in This Workbook</strong>.  The coding is done in This Workbook, Module, &amp; User Form (Command Button) . The VBA essentially programs a new button on the Excel Ribbon (Menu Commands) that when you click it an user form will generate. However, this does not happen with the VBA error.  In overall, the coding is very sound. Therefore, I believe the errors I'm getting are tied to system/configuration items. </p>

<pre><code>Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemoveMenuItem
End Sub

Private Sub Workbook_Open()
  AddMenuItem
    'frmMain.Show

End Sub
</code></pre>

<p><strong>MODULE</strong> </p>

<pre><code>Option Explicit

Sub Selectfile()

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\brian\Desktop\practice file2.xlsm")
End Sub


Sub AddMenuItem()
    Dim cmbWorkSheetMenuBar As CommandBar
    Dim cmbControl As CommandBarControl

    Set cmbWorkSheetMenuBar = Application.CommandBars("Worksheet Menu Bar")
    Set cmbControl = cmbWorkSheetMenuBar.Controls.Add(Type:=msoControlButton, temporary:=True) 'adds a menu item to the Menu Bar
    With cmbControl
        .Caption = "Show Form" 'names the menu item
        .OnAction = "ShowTheForm" 'runs the specified macro
        .FaceId = 1098 'assigns an icon to the dropdown

    End With
 End Sub

Sub RemoveMenuItem()
    On Error Resume Next 'in case the menu item has already been deleted
    Application.CommandBars("Worksheet Menu Bar").Controls("Show Form").Delete 'delete the menu item
End Sub

Sub ShowTheForm()
    frmMain.Show

End Sub
</code></pre>

<p><strong>UserForm Click Code</strong></p>

<pre><code>Option Explicit



Private Sub btnOne_Click()
   Application.FindFile



End Sub
</code></pre>