View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default CommandBarControl, Exists???

Hi
try something like the following

Dim ctrl
on error resume next
set ctrl = CommandBars(1).Controls("Tools").Controls("My Personal
Tools")
on error goto 0
if ctrl is nothing then
msgbox "Control does not exist"
end if


--
Regards
Frank Kabel
Frankfurt, Germany

"Juan" schrieb im Newsbeitrag
...
Hi All!

Does anyone knows how to check if a given
commandbarcontrol exists and maybe analyze it with a
boolean var???

I want to check for CommandBars(1).Controls
("Tools").Controls("My Personal Tools")

If it exists use it and add a control inside, if not,
creat it....then add a control...

Any help is greatly appreciated...

Regards
Juan