Setting default menu bar via VBA

[WillDDS]

How do I set the default Menu Bar to my own selection using VBA, to emulate changing that setting in the Startup Options dialog box? Will Ryder
~~~~~~~~~~~~~
Digital Data Systems

 

[VBslammer]

Sub InitMenuBar()
  Dim cbr As CommandBar
  
  For Each cbr In Application.CommandBars
    If cbr.Name = "MyCustomMenu" Then
      cbr.Visible = True
      cbr.Position = msoBarTop
    Else
      cbr.Visible = False
    End If
  Next cbr
End Sub

VBSlammer

Unemployed in Houston, Texas