Drop down

[murray99]

I am looking at setting up a dropdown box that when an item from th
list is selected you are automatically jump to that name in th
spreadsheet. Can anyone help

 

[Frank Kabel]

Hi
if you have this listbox/dropdown (e.g. create via Data - Validation -
List) with your sheetnames in B1 add the following code to your
worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.count > 1 Then Exit Sub
If Intersect(Target, Me.Range("B1")) Is Nothing Then Exit Sub
With Target
If .Value <> "" Then
Worksheets(.Value).Activate
End If
End With
End Sub