EXCEL MarcoVBA Navigation Menu

Hi there pro coders,

First, kindly refer to the attached image and lets name it "Navigation menu Bar".
All I want to know is how to do this. I took it from a macro enable excel file.
When I open the said file, a log-in form will pop-up. But lets jud disregard that.

All I want to learn from you is that, When I open a specific excel file, the
"Navigation Menu Bar" Will pop-up and then if I click any of the button, it will
proceed to the assigned worksheet.

I also want to learn how to add button inside the excel file where in if I click, it
will return to "Navigation Menu Bar"

Thank You and More Power

Hi Jamz,

We need to see the code - can you post a sample workbook? (Go to Advanced and click on the paper clip)

Hi there,

sorry for the delay.
Here is the situation.

1. I have file name lets say "00 FS.xlsm"
2. Inside of "00 FS.xlsm" is a Form "NavigationMenu" refering to above image that I attached.

I was after the "NavigationMenu" to pop-up upon opening the workbook "00 FS.xlsm"

Here is what i did.

Private Sub Workbook_Open()
          NavigationMenu.Show
End Sub

I pasted it in Sheet1
but nothing happens

Hi, jamzsaludares,

please wrap the procedure with code-tags as requested in Forum Rule #3.

Code has to go into ThisWorkbook in order for the event to get triggered.

Ciao,
Holger

Hi, jamzsaludares,

loop through the workbooks in the instance of Excel and set the object to the workbook else activate the workbook.

I assumed the workbook to be stored in the same folder as the workbook that is starting the routine:

Sub Sample()
Dim wb As Workbook
Dim wbForm As Workbook

Const cstrWB As String = "00 FS.xlsm"

For Each wb In Workbooks
  If wb.Name = cstrWB Then
    Set wbForm = wb
    Exit For
  End If
Next wb
If wbForm Is Nothing Then Set wbForm = Workbooks.Open(ThisWorkbook.Path & "\" & cstrWB)
wbForm.Activate

'....
Set wbForm = Nothing
End Sub

Ciao,
Holger

Hi, jamzsaludares,

you certainly may believe the last question to be part of the original question but I´m afraid that it has nothing to do with that question.

Maybe try

'...
If wbForm Is Nothing Then
  Workbooks.Open FileName:=ThisWorkbook.Path & "\" & cstrWB, UpdateLinks:=False
  Set wbForm = ActiveWorkbook
Else
  wbForm.Activate
End If

'...

Ciao,
Holger