Проще всего пробежаться циклом
for each cb in Application.CommandBars
if cb.Name="MyMenu" then
....
end if
next

Можно еще попоробовать сделать присвоение типа такого:
On Error Resume Next
Set cb = Application.CommandBars("MyMenu")
If cb is Nothing Then
....
end if
Но прийдется обязательно делать перехватыват ошибки

Диаграммы (как и любые объекты на листе) перечисляются в коллекции Shapes
MsgBox ActiveSheet.Shapes(1).Name