Hocam sizin uygulamada çok güzel çalışıyor.
Kendi uygulamama yapıştırdım şöyle bir hata verdi:
Uyarı Başlığı : Microsoft Visual Basic
Uyarı metni : Run-time error "5"
                    Invalid procedure call or argument
Buttons      : Continue (disabled),
                    End,
                    Debug,
                    Help.
Debug işaretli kısım :
CommandBars("MehmetMenu").Enabled = True