Icon Macro
 

Can I have a macro which would list my icon's control id & description
& tell me which macro from my personal.xls is assigned to it.
Thxs

Icon Macro
 

Below is a macro that will find and list all custom buttons.

HTH,
Bernie
MS Excel MVP

Sub FindAllUserDefinedButtons()
Dim CmdBar As CommandBar
On Error GoTo ErrorReading:

For Each CmdBar In CommandBars
For i = 1 To CmdBar.Controls.Count
If CmdBar.Controls(i).BuiltIn = False Then
ActiveCell.Value = i
ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Caption
ActiveCell.Offset(0, 2).Value = CmdBar.Name
ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID
ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).OnAction
ActiveCell.Offset(1, 0).Select
On Error GoTo ErrorReading:
If CmdBar.Controls(i).Type = msoControlPopup Then
For j = 1 To CmdBar.Controls(i).Controls.Count
ActiveCell.Value = "'" & i & " / " & j
ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Controls(j).Caption
ActiveCell.Offset(0, 2).Value = CmdBar.Name
ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID
ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).Controls(j).OnAction
ActiveCell.Offset(1, 0).Select
Next j
End If

End If
ErrorReading:
Next i
Next CmdBar
End Sub

"al007" wrote in message
oups.com...
Can I have a macro which would list my icon's control id & description
& tell me which macro from my personal.xls is assigned to it.
Thxs

Icon Macro
 

Excellent !! - Exactly what I wanted - many thxs
Bernie Deitrick wrote:
Below is a macro that will find and list all custom buttons.

HTH,
Bernie
MS Excel MVP

Sub FindAllUserDefinedButtons()
Dim CmdBar As CommandBar
On Error GoTo ErrorReading:

For Each CmdBar In CommandBars
For i = 1 To CmdBar.Controls.Count
If CmdBar.Controls(i).BuiltIn = False Then
ActiveCell.Value = i
ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Caption
ActiveCell.Offset(0, 2).Value = CmdBar.Name
ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID
ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).OnAction
ActiveCell.Offset(1, 0).Select
On Error GoTo ErrorReading:
If CmdBar.Controls(i).Type = msoControlPopup Then
For j = 1 To CmdBar.Controls(i).Controls.Count
ActiveCell.Value = "'" & i & " / " & j
ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Controls(j).Caption
ActiveCell.Offset(0, 2).Value = CmdBar.Name
ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID
ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).Controls(j).OnAction
ActiveCell.Offset(1, 0).Select
Next j
End If

End If
ErrorReading:
Next i
Next CmdBar
End Sub

"al007" wrote in message
oups.com...
Can I have a macro which would list my icon's control id & description
& tell me which macro from my personal.xls is assigned to it.
Thxs