Hello Robin,

Me again. Call it from Auto_Open (or Private Sub Workbook_Open) of Add-in.

Sub Auto_Open()
Call CreateToolbarMenu
End Sub

And replace

Set sh = Sheets(1) 'Change here to the worksheet for shapes

to

Set sh = ThisWorkbook.Sheets("Sheet1") 'Change here to the worksheet for
shapes


"Robin Clay" wrote in message
...
Greetings !

Earlier today I wrote in here

... I would like to create my own icons to go on other
menu items.

"Colo" kindly replied, 12/10/2003 1:32:47 AM, for which I
am very grateful,


Please place Auto shpas or bitmaps in the sheet1 before
run this code.
.....
Set sh = Sheets(1)
.....
Set shp = sh.Shapes(lngCnt)
.....
shp.Copy
.....
.PasteFace


These routines all go into my AddIn.xla, which I notice
has a Sheet1.

My further question, then, is this -

Can I put these shapes into that Sheet 1 in my
AddIn.xla ?

And if so, how ?

"Normally", I can't access that worksheet in the .xla file.


RClay AT haswell DOT com