Custom Toolbar
 

Thanks got it to position correctly now I need to know how
do I make it so it shows the image and text, currenly the
first one shows save as a disk and says exit the second
one says share workbook.

This is my code

Application.CommandBars.Add(Name:="COUNT").Positio n =
msoBarTop
Application.CommandBars("COUNT").Controls.Add
Type:=msoControlButton, ID:=3 _
, Befo=1
Application.CommandBars("COUNT").Controls.Add
Type:=msoControlButton, ID:= _
752, Befo=2

Application.CommandBars.Add(Name:="CountControl"). Position
= msoBarTop
Application.CommandBars("CountControl").Controls.A dd
Type:=msoControlButton, _
ID:=2040, Befo=1