Custom toolbar's name
On the not quite sure assumption that the ID of all custom toolbars is 1 -
Sub test3()
Dim i As Long
Dim s As String
Dim cbr As CommandBar
s = "Visible Custom Toolbars - " & vbCr
For Each cbr In Application.CommandBars
If cbr.ID = 1 And cbr.Visible Then
i = i + 1
s = s & cbr.Name & vbCr
End If
Next
s = s & "Count = " & i
MsgBox s
End Sub
Regards,
Peter T
"donwb" wrote in message
...
Excel 2003
How can I programatically identify the name of an active (Visible) custom
toolbar.
donwb
|