This code below works fine in Excel 97 on NT.
After one of our machines was upgraded to XP with Excel 2002 it stop working with Run-time Error 5 on the second "With..." the first one is OK:

Sub MakeToolBar()

With Application.CommandBars(1).Controls
.Add Type:=msoControlPopup, Before:=11
.Item(.Count).Caption = "GEF Fi&xes"
.Item(.Count).Tag = "GEF Fixes"
End With

With Application.CommandBars("Custom Popup 1").Controls
.Add Type:=msoControlButton, Before:=1
.Item(.Count).Caption = "Fix &Me"
.Item(.Count).OnAction = "FixMe"
End With
End Sub

Any help or ideas will be greatly appreciated.
Thank you.
Ed