Returns or sets information about the command bar control, such as data that can be used as an argument in procedures, or information that identifies the control. Read/write String.
expression.Tag
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
To avoid duplicate calls of the same class when tiggered with events, define the Tag property unique to the events. The following example demonstrates this concept with two modules.
Public WithEvents oBtn As CommandBarButton
Private Sub oBtn_click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "Clicked " & ctrl.Caption
End Sub
Dim oBtns As New Collection
Sub Use_Tag()
Dim oEvt As CBtnEvent
Set oBtns = Nothing
For i = 1 To 5
Set oEvt = New CBtnEvent
Set oEvt.oBtn = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton)
With oEvt.oBtn
.Caption = "Btn" & i
.Style = msoButtonCaption
.Tag = "Hello" & i
End With
oBtns.Add oEvt
Next
End Sub
Example
This example sets the tag for the button on the custom command bar to "Spelling Button" and displays the tag in a message box.
CommandBars("Custom").Controls(1).Tag = "Spelling Button"
MsgBox (CommandBars("Custom").Controls(1).Tag)