Help with dropdown menus
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").DropDow*n.Value = "Main Menu" Then
Worksheets("Main Menu").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Goals" Then
Worksheets("Goals").Range("A1"*).Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Development Plan"
Then
Worksheets("Development Plan").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Mid-Year" Then
Worksheets("Mid-Year").Range("*A1").Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Self-Evaluation" Then
Worksheets("Self-Eval").Range(*"A1").Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Functional Manager"
Then Worksheets("Functional Mgr").Range("A1").Select
ElseIf Worksheets("MainMenu").DropDow*n.Value = "Manager" Then
Worksheets("Manager").Range("A*1").Select
End If
End Sub
I keep getting a compile error. What am I doing wrong?
|