I am trying to setup a simple custom contextual menu where I append an item and then set the tag. When I click an item, the text is fine but the tag is nil.
In ConstructContextualMenu
For Each TypeKey As Variant in keys
base.Append(New MenuItem(d.Value(TypeKey).StringValue))
base.Tag = "TAG"
Next
In ContextualMenuAction,
MsgBox "[R" + CStr(row) + ":C" + CStr(column) + "] " + hitItem.Text + " (" + CStr(hitItem.Tag) + ")"