View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Simon Lloyd[_648_] Simon Lloyd[_648_] is offline
external usenet poster
 
Posts: 1
Default Add Toolbar to workbook


Use this to call your bar and assign macros to the buttons on it and th
one below to remove toolbar!

Sub Auto_Open()
With Application
.CommandBars("YOUR BAR NAME").Visible = True
.CommandBars("YOUR BAR NAME").Controls("BUTTON NAME").OnActio
= "MACRO NAME"
.CommandBars("YOUR BAR NAME").Controls("BUTTON NAME").OnActio
= "MACRO NAME"
.DisplayFullScreen = False
End With
End Sub

Sub cleanupmenubar()
On Error Resume Next
Application.CommandBars("YOUR BAR NAME").Controls.Delete
On Error GoTo 0

End Sub

Untested but should work!

Hope this helps!

Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=47169