Here is one I use on my MENU sheet to double click on a cell which has the
wb or ws typed in. Right click sheet tab>view code>insert this. If you don't
need the worksheet part, simply modify. If wb open it activates. If not, it
opens it.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(WantedSheet) Is Nothing Then
GetWorkbook ' calls another macro to do that
Else
Application.Goto Sheets(WantedSheet).Range("a4")
End If
Application.DisplayAlerts = True
End Sub
Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Ken C" <(E-Mail Removed)> wrote in message
news:3A5166A2-1703-4C27-868C-(E-Mail Removed)...
> How do I have multiple workbooks open and have a menu to switch between
> them?
> I need to have approximatly 5 workbooks to use due to the size of the
> workbooks would negate using just one for all of the sheets.
>
> Any help would be greatly appreciated.
>
> If you are wondering what I am referancing you could go to traderxl.com
> and
> watch the analyzerxl demo and see the tabs at the top of the sheet under
> addin menu.