View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
zuEgg zuEgg is offline
external usenet poster
 
Posts: 3
Default 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