Hi All,

This is how you put it next to an item in the custom made menu:

Sub check_Received()

Dim mypopup As CommandBarPopup
Set mypopup = CommandBars(1).Controls("My menu")

If mypopup.Controls("Received").State = msoButtonDown Then
'menu item unchecked
mypopup.Controls("Received").State = msoButtonUp
Else
'menu item checked
mypopup.Controls("Received").State = msoButtonDown
End If
End Sub

How do you go about an item in the submenu of the same menu (("My
menu")?

Cheers