Macro to change worksheets

Hi Fodeps,

Perhaps this code will help you out (it requires that the values in the drop-down list match your sheet names EXACTLY.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H3")) Is Nothing Then
        Sheets(Range("H3").Value).Activate
    End If
End Sub

If they don't match, you'd have to alter the code so that it selects the correct sheet.