Menu Visable When WindowActivate

I wrote the following code in order to add a menu "EXPORT" to the toolbar. I want it to be visable only when the file is active and not when other files in the same workbook are active.

I know this is possible, I thought by using '.visable', but I can't get it to work correctly, so I'm stuck with what I have below.

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
For Each con In Application.CommandBars(1).Controls
If con.Caption = "EXPORT" Then
con.Delete
End If
Next
With Application.CommandBars(1).Controls.Add(msoControlPopup)
.Caption = "EXPORT"
End With
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
On Error Resume Next
Application.CommandBars("EXPORT").Delete

End Sub