Application.CommandBars.Add Name:="MyCharts", temporary:=True
With Application.CommandBars("MyCharts")
For iCH = 1 To numCHARTS
With .Controls.Add(Type:=msoControlButton)
.Caption = "chart" & iCH
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "MAKEchart" & iCH
End With
Next iCH
End With


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Zurn" wrote in message
...

I want to make a variable toolbar. Sometimes there are 4 charts
possible, connected to 4 buttons. Sometimes 2 or 3.

Here my code

For iCH = 1 To numCHARTS
onAct = "MAKEchart" & iCH
'??????? how to do this ??????
'??Set MyButtonCHART & iCH ?? =
Controls.Add(Type:=msoControlButton)
With MyButtonvarCHART & iCH ...???
Caption = "chart" & iCH
Style = msoButtonCaption
BeginGroup = True
'.OnAction = onAct
End With
Next iCH

Some help is always welcome. Thx

Zurn


--
Zurn
------------------------------------------------------------------------
Zurn's Profile:
http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=526740