OnAction - Adding a command bar

[DejaVu]

I'm trying to add a command bar to excel.
I have the following code in Sub Auto_Open() :

tmpControl.Caption = "Workbook1"
tmpControl.OnAction = "Workbook1.xls!RunMacro"
tmpControl.Tag = "Workbook1"

I'm wanting to change the tmpControl.OnAction to open the workboo
"Workbook1". I know this is set up to run the macro "RunMacro", bu
I'm not sure how to change it so when I click on the command bar, i
will simply just open the workbook.


Any help is greatly appreciated!!

Thanks,


DejaV

 

[headtoadie]

OnAction runs macros. Just create a macro that opens the workbook yo
want and point your OnAction command to that.

-H

 

[DejaVu]

I knew it was for macros, but I was wondering if there was something
that I could do to directly open the workbook.

I have already created a macro that only has a = now() in it

It solved my problem, but thought it was a cheesy way to do it. I
could not think of anything better.



Thanks,

DejaVu

 

[Simon Lloyd]

Hi another sugestion for you!

Try this, the first 3 lines turn standard menubars off, the 4th you
need to insert your menu bar name and the next 2 lines (which you can
repeat) are to assign subs to buttons when the workbook is opened
(modify with your names). don't forget the things you turn off (False)
in an Auto_open need to be turned back on (True) in your Auto_close

Hope this helps

Simon

Sub Auto_open()

With Application
..CommandBars.ActiveMenuBar.Enabled = False
..CommandBars("Formatting").Visible = False
..CommandBars("Standard").Visible = False
..CommandBars("your menubar name").Visible = True
..CommandBars("your menubar name").Controls("your button name").OnAction
= "your sub name"
..CommandBars("your menubar name").Controls("your button name").OnAction
= "your sub name"
..DisplayFullScreen = False
..DisplayFormulaBar = False
..DisplayStatusBar = False
End With
End Sub

 

[DejaVu]

Got it! Thanks for your suggestions... I have the results I was looking
for!


Thanks for the assistance!


DejaVu