[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Range("B1").Text <> "" Then
Sheets(Range("B1").Text).Activate
End If
End Sub[/VBA]

In this case the dropdown is in cell "B1" and this code is in the Sheet1 module (change to suit)