Sub ResetAll()
Dim myCommandBar As CommandBar
For Each myCommandBar In Application.CommandBars
If myCommandBar.Type = msoBarTypePopup Then
myCommandBar.Reset
myCommandBar.Enabled = True
End If
Next myCommandBar
End Sub