Code does not work after Excel 2013 Upgrade

I am troubleshooting a macro I inherited. This macro is for a database upload. The problem is since we upgraded to Excel 2013, this code does not appear to be running as each time the upload spreadsheet is opened another &ProjectionsUpload menu appears (there are four now). I can right click on them and delete them but as soon as the spreadsheet is opened again they reappear. I did delete Office Cache but that does not help. Any thoughts on changes to this code for Excel 2013? I am a beginner at VB so any help is appreciated.


Public Sub RemoveBudgetMenu()
' Remove custom menu for Projection from the menu bar
' This is called from ThisWorkbook when file is closed

Dim cbWSMenuBar As CommandBar
Dim i As Integer

On Error Resume Next
Set cbWSMenuBar = CommandBars("Worksheet Menu Bar")
With cbWSMenuBar
For i = .Controls.Count To 1 Step -1
If .Controls(i).Tag = sMenuTag And .Controls(i).Caption = "&ProjectionsUpload" Then
.Controls(i).Delete
Exit For
End If
Next i
End With

' cbWSMenuBar.Controls(sMenuName).Delete
End Sub

Thank you for your response; I have included the code where the custom menu is built; smenu is declared as a global variable (string) at top of code (did not want to put it all in here).

Public Sub AddBudgetMenu()
'Add a custom menu to the menu bar for Projections
' This is called from ThisWorkbook when file is opened
' modified 11/29/2005 - Brian Patterson
' modified 9/28/2007 - Brian Patterson

Dim cbWSMenuBar As CommandBar
Dim muProjection As CommandBarControl
Dim iHelpIndex As Integer

sMenuTag = SetMenuTag

Set cbWSMenuBar = CommandBars("Worksheet Menu Bar")
iHelpIndex = cbWSMenuBar.Controls.Count

Set muProjection = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpIndex)

With muProjection
.Caption = "&ProjectionsUpload"
.Tag = sMenuTag
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Show Export Range"
.OnAction = "ShowExportRange"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Adjust Export Range"
.OnAction = "AdjustExportRange"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Validate Data in Export Range"
.OnAction = "ValidateData"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Reset Export Directory"
.OnAction = "ResetExportDirectory"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Export Budgets"
.OnAction = "ExportBudgets"
End With
End With
End Sub
'-------------------------------------------------------------------------------
Private Function SetMenuTag() As String
'Set the menu tag for the current workbook based on the number of instances
'of the workbook previously opened.
'Mod by Brian Patterson - 11/29/2005
'Mod by Brian Patterson - 9/28/2007


Dim cbWSMenuBar As CommandBar
Dim i As Integer
Dim n As Integer
Dim iExt As Integer

Set cbWSMenuBar = CommandBars("Worksheet Menu Bar")
n = 1

For i = 1 To cbWSMenuBar.Controls.Count
If cbWSMenuBar.Controls(i).Tag = "ProjectionsUpload" Then
If Len(cbWSMenuBar.Controls(i).Caption) > 15 Then
iExt = CInt(Right(cbWSMenuBar.Controls(i).Caption, _
Len(cbWSMenuBar.Controls(i).Caption) - 15))
Else
iExt = 1
End If

If iExt >= n Then _
n = iExt + 1
End If
Next i
If n = 1 Then
SetMenuTag = "ProjectionsUpload"
Else
SetMenuTag = "ProjectionsUpload" & Format(n)
End If

End Function