Excel 2003

How can I programatically identify the name of an active (Visible) custom
toolbar.

donwb

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" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Excel 2003
>
> How can I programatically identify the name of an active (Visible) custom
> toolbar.
>
> donwb
>

Many thanks Peter - that works fine.

"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Excel 2003
>>
>> How can I programatically identify the name of an active (Visible) custom
>> toolbar.
>>
>> donwb
>>
>
>