Hi,
You will need to store your macros in your Personal.xls workbook to have them available to all other workbooks. (If you don't already have one, record a macro and choose Personal.xls as the destination for saving the macro).
Then you will need to create a menu for your chosen macros. To be available every time you use Excel the menu should be created in the Workbook_Open event of the Personal.xls. Eg.<pre>Private Sub Workbook_Open()
Create_Menu.CreatePopup ' Menu item
End Sub</pre>
Then in a normal module (called Create_Menu in this example), in Personal.xls, add a menu creation routine. Eg.<pre>Sub CreatePopup()
Dim cbpop As CommandBarControl
Dim cbctl As CommandBarControl
Dim cbsub As CommandBarControl
For Each cbpop In Application.CommandBars _
("Worksheet Menu Bar").Controls
If cbpop.Caption = "&My Macros" Then End
Next
Set cbpop = Application.CommandBars("Worksheet Menu Bar"). _
Controls.Add(msoControlPopup, , , , False)
cbpop.Caption = "&My Macros"
cbpop.Visible = True
' add a menu item
Set cbctl = cbpop.Controls.Add(Type:=msoControlButton)
cbctl.Visible = True
cbctl.Style = msoButtonCaption 'required for caption
cbctl.Caption = "My first macro"
cbctl.OnAction = "FirstMacro" 'action to perform
End Sub
Sub RemovePopup()
Dim cbpop As CommandBarControl
' Removes Custom menu if temporary not set
For Each cbpop In Application.CommandBars _
("Worksheet Menu Bar").Controls
If cbpop.Caption = "&My Macros" Then cbpop.Delete
Next
End Sub</pre>
The second routine is to delete your custom menu if you wish to.
HTH
EDIT: Oops - typos!
_________________<font color="blue"> «««<font color="red">¤<font color="blue"><font size=+1>Richie</font><font color="red">¤<font color="blue"> »»»</font>
</gif>
This message was edited by Richie(UK) on 2002-10-20 13:35