Dim cbrNewToolbar As CommandBar
For Each cbrNewToolbar In Application.ActiveExplorer.CommandBars
    strName = cbrNewToolbar.Name
    If strName = "EmailMgr" Then ' just insure it's visible
        Application.ActiveExplorer.CommandBars("EmailMgr").Visible = True
        Exit Sub
    End If
Next