Combo boxes
 

Hi. I am trying to use the combo box feature to navigate between
sheets. In other words, I have a dropdown menu on the header of each
sheet ("Main Menu," "Goals," etc.) and am trying to work out a macro
that directs the user to whichever sheet is selected.

I have gotten this far:

Sub DropDown()

If Worksheets("MainMenu").DropDown.Value = "Main Menu" Then
Worksheets("Main Menu").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Goals" Then
Worksheets("Goals").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Development Plan" Then
Worksheets("Development Plan").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Mid-Year" Then
Worksheets("Mid-Year").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Self-Evaluation" Then
Worksheets("Self-Eval").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Functional Manager"
Then Worksheets("Functional Mgr").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Manager" Then
Worksheets("Manager").Range("A1").Select
End If

End Sub


I keep getting a compile error. What am I doing wrong?

Combo boxes
 

Hi,

replace these two lines:
ElseIf Worksheets("MainMenu").DropDown.Value = "Functional Manager"
Then Worksheets("Functional Mgr").Range("A1").Select

with:
ElseIf Worksheets("MainMenu").DropDown.Value = "Functional Manager" Then
Worksheets("Functional Mgr").Range("A1").Select

As additional information I would recommend using a "select case" instead of
all those elseif lines.
Also using a dropdown menu on the toolbar would look more elegant instead of
the combo boxes on each sheet.

Good luck.

Carlos Lozano
www.caxonline.net

" wrote:

Hi. I am trying to use the combo box feature to navigate between
sheets. In other words, I have a dropdown menu on the header of each
sheet ("Main Menu," "Goals," etc.) and am trying to work out a macro
that directs the user to whichever sheet is selected.

I have gotten this far:

Sub DropDown()

If Worksheets("MainMenu").DropDown.Value = "Main Menu" Then
Worksheets("Main Menu").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Goals" Then
Worksheets("Goals").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Development Plan" Then
Worksheets("Development Plan").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Mid-Year" Then
Worksheets("Mid-Year").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Self-Evaluation" Then
Worksheets("Self-Eval").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Functional Manager"
Then Worksheets("Functional Mgr").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDown.Value = "Manager" Then
Worksheets("Manager").Range("A1").Select
End If

End Sub


I keep getting a compile error. What am I doing wrong?