VBA problem with CommandBars
Hi.
I'm having problems writing a macro that creates a custom
CommandBarControl. I have to check if the CommandBarControl is empty
and then delete it.
Here is the code of what i'm doing:
Dim cbpop As CommandBarControl
Dim cbctl As CommandBarControl
Dim bExists As Boolean
bExists = False
For Each cbpop In Application.CommandBars("Worksheet Menu
Bar").Controls
If cbpop.Caption = "xxx" Then
' if the CommandBarControl is empty.........
Application.CommandBars("Worksheet Menu
Bar").Controls("xxx").Delete
End If
Next
I've been searching for long but i've not found any hint for solving
the problem.
Thanks,
Massimo
|