I have a WordXP custom built toolbar problem. I wrote VBA code that
builds a custom Word toolbar. When I ran the code, the toolbar was
created and worked fine. When I needed to update the toolbar, I made
the VBA code changes, deleted the toolbar manually, and then ran the
code. The toolbar appears to be created correctly. The problem is when
I exit Word and then later start Word again, there are two instances of
the toolbar. Why didn't the first instance I deleted stay deleted? I
also have code to delete the toolbar before rebuilding it.

A portion of the code lies below. The code worked okay until I upgraded
to OfficeXP Pro. Is this a 'feature' of WordXP?

Thanks for any assistance/insight.

   Dim objCommandBar As office.CommandBar
   Dim objCommandBarControl As office.CommandBarControl
   Dim objCommandBarButton As office.CommandBarButton
   Dim objCommandBarComboBox As office.CommandBarComboBox
   Dim objCommandBarPopup As office.CommandBarPopup
   Dim objCommandBarPopup2 As office.CommandBarPopup

   Dim cbToolBar As CommandBar
   Dim cbMenuBar As CommandBarPopup
   Dim cbSuBMnu1 As CommandBarButton
   Dim cbSuBMnu2 As CommandBarPopup
   Dim cbSuBMnu2_PopUp As CommandBarButton
   Dim cbSuBMnu3 As CommandBarPopup
   Dim strToolbar As String
   Dim iCount As Integer

   Dim str1 As String
   Dim str2 As String
   Dim strCaption As String
   Dim strAction As String
   Dim strDesc As String
   Dim lngFaceId As Long

   Dim cbb8 As office.CommandBarButton
   Dim cbb9 As office.CommandBarButton
   Dim cbc8 As office.CommandBarControl
   Dim cbc9 As office.CommandBarControl
   Dim cbar1 As office.CommandBar
   Dim cbar9 As office.CommandBar
   Dim cbrp1 As office.CommandBarPopup

'----------------------------------------------------------
' Created by Dick White on 12/3/2002
' Purpose: Create standard toolbar
' Inputs:
' Outputs:
'----------------------------------------------------------
Sub sCmdToolBarMyToolbar_XP()
   On Error GoTo E_Handle
   Dim lngID As Long

   strToolbar = "MyToolbar OfcXP"

   'delete existing toolbar
   For Each objCommandBar In Application.CommandBars
       With objCommandBar
           If .BuiltIn = False Then
               If objCommandBar.Name = strToolbar Then
                   objCommandBar.Delete
                   MsgBox "Deleted toolbar"
                   Exit For
               End If
           End If
       End With
   Next objCommandBar

   '====================
   'deletes any previously created custom toolbars and rebuilds
'    Dim ctrlControl As office.CommandBar
'    For Each ctrlControl In Application.CommandBars("Menu
Bar").Controls
'        If ctrlControl.Caption = "My Main Menu &Name" Then
'            ctrlControl.Delete
'            Exit For
'        End If
'    Next ctrlControl
   '====================

   Application.CommandBars.DisplayTooltips = True

   'create toolbar
   Set objCommandBar = Application.CommandBars.Add _
       (strToolbar)

   objCommandBar.Position = msoBarTop
   objCommandBar.RowIndex = msoBarRowLast
   objCommandBar.Left = 0

   With objCommandBar.Controls

       '-------------------------

       'set up label button
       Set objCommandBarButton = .Add(msoControlButton)
       strAction = ""
       strCaption = strToolbar
       strDesc = strCaption
       Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True, 28)

       '-------------------------

       'set up  button
       Set objCommandBarButton = .Add(msoControlButton)
       strCaption = "GetDocInfo"
       strDesc = strCaption
       strAction = "GetDocInfo"
       Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)

       '-------------------------

       'set up builtin button for properties
'        Set cbrp1 = objCommandBarPopup
       Set cbb8 = objCommandBarButton
       lngID = 750 'Properties
       Set cbc9 = fFindCtrl(lngID)
       With cbc9
           .Copy Bar:=objCommandBar
       End With
       Set objCommandBarControl = objCommandBar.FindControl(ID:=lngID)
       objCommandBarControl.BeginGroup = True

       '=====================================

       'set up  popup button
       Set objCommandBarPopup = .Add(msoControlPopup)
       With objCommandBarPopup

           .Caption = "Save"
           strDesc = strCaption
           strAction = ""
           .BeginGroup = True
           objCommandBarPopup.BeginGroup = True

           '-------------------------

           'set up  button
           Set objCommandBarButton = .Controls.Add(msoControlButton)
           strCaption = "Save as Doc"
           strDesc = strCaption
           strAction = "sSaveAsDoc"
           Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)
           objCommandBarButton.BeginGroup = True

           '-------------------------

           'set up  button
           Set objCommandBarButton = .Controls.Add(msoControlButton)
           strCaption = "Save as Text"
           strDesc = strCaption
           strAction = "sSaveAsText"
           Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)
           objCommandBarButton.BeginGroup = True

           '-------------------------

           'set up  button
           Set objCommandBarButton = .Controls.Add(msoControlButton)
           strCaption = "Save as RTF"
           strDesc = strCaption
           strAction = "sSaveRTF"
           Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)
           objCommandBarButton.BeginGroup = True

           '-------------------------

           'set up  button
           Set objCommandBarButton = .Controls.Add(msoControlButton)
           strCaption = "Save as Temp.doc"
           strDesc = strCaption
           strAction = "sSaveAsTemp"
           Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)
           objCommandBarButton.BeginGroup = True

           '-------------------------

       End With

       '=====================================

       '-------------------------

       'set up  button
       Set objCommandBarButton = .Add(msoControlButton)
       strCaption = "Quit"
       strDesc = strCaption
'        strAction = "sQuit"
       strAction = "sQuit"
       Call sBldCmdBarCtlBtnIcon(objCommandBarButton, strAction,
strCaption, strDesc, True)

   End With

   '=====================================

sExit:
   On Error Resume Next
   Set objCommandBarButton = Nothing
   Set objCommandBarPopup = Nothing
   Set objCommandBarComboBox = Nothing
   Set cbSuBMnu2 = Nothing
   Set cbSuBMnu3 = Nothing
   Set cbSuBMnu2_PopUp = Nothing
   objCommandBar.Visible = True
   Exit Sub

E_Handle:
'    MsgBox Err.Description & vbCrLf & "sCmdToolBarMyToolbar_XP",
vbOKOnly + vbCritical, "Error: " & Err.Number

   Select Case Err.Number
       Case 91
           'Tell Word to ignore this error and move on to the next
line
           Debug.Print "--error" & vbCrLf & Err.Number & ", " &
Err.Description
           Resume Next
       Case 438
           'Tell Word to ignore this error and move on to the next
line
           Resume Next
       Case Else
           'Pop up a message box with the error and exit the Procedure
           MsgBox "Error " & Err.Number & ", " & Err.Description
           Debug.Print "--error" & vbCrLf & Err.Number & ", " &
Err.Description
'            Debug.Print cbc.Type, cbc.ID, cbc.Caption
   End Select

   Resume sExit

End Sub