im trying to create a commandbar menu object for worksheet with a
dropdown submenu which can count number and names of worksheets in any
active workbook.
the code i've written is as given bolow, it is not working?? dont know
why?? is there anybody who can help me with it
Sub myusershowmenu2()
Dim i As Integer
Dim myarray() As Variant
Dim mymenubar As CommandBar
Set mymenubar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
mymenubar.Visible = True
Set mymenuControl = mymenubar.Controls.Add(Type:=msoControlComboBox,
ID:=1)
With mymenuControl
For i = 1 To ActiveWorkbook.Worksheets.Count - 1
myarray() = ActiveWorkbook.Worksheets(i).Name
.AddItem Text:=myarray(), Index:=i
Next i
DropDownLines = i + 1
.DropDownWidth = 75
.ListHeaderCount = 0
End With
End Sub
thanks in advance
regards
manish k
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
