I liked this problem. I came up with something along the same lines but not so simple. It prints out all the controls’ IDs as well. I’ve gotten burned by referring to controls by their captions – the captions sometimes change names slightly, e.g., “Column Width…” becomes “Width…” I think that IDs stay the same:

Sub add_popup_names_button()
Dim cbar As CommandBar
Dim cbutton As CommandBarButton

For Each cbar In Application.CommandBars
With cbar
If .Type = msoBarTypePopup Then
Set cbutton = .Controls.Add(temporary:=True)
With cbutton
.Caption = “Show popup info”
.Style = msoButtonIconAndCaption
.FaceId = 284
.OnAction = “show_popup_info”
End With
End If
End With
Next cbar

End Sub

Sub show_popup_info()
Dim i As Integer

With CommandBars.ActionControl.Parent
Debug.Print “Menu = ” & .Name & String(7, ” “) & “Index = ” & .Index & vbLf
Debug.Print “Caption” & String(17, ” “) & “ID”
For i = 1 To .Controls.Count – 1
With .Controls(i)
Debug.Print ” ” & .Caption & String(22 – Len(.Caption), ” “) & .ID
End With
Next i
End With
Debug.Print vbLf

End Sub