VBA Change sheet based on Drop down

[blossomthe2nd]

Hi guys

Wonder if its possible to write a code that changes dependant on cell value ?

In cell G9 I have a drop down list , Red, Light green,Orange and blue. I wish to write a macro that runs dependant on what is selected from this drop down.

So for example, if I select Red it will go to Sheet1, Light green Sheet2 and so on ..


Is This possible and if so please help ?

Thanks

 

[doofusboy]

Assuming your drop-down list is in cell A1 of Sheet 1, the following should work for you. Obviously you can customize to meet your needs.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Sheet1.Range("A1"), Target) Is Nothing Then
        Select Case Target.Value
            Case "Red"
                Application.Goto Sheet2.Range("A1")
            Case "Light Green"
                Application.Goto Sheet3.Range("A1")
            Case "Orange"
                Application.Goto Sheet4.Range("A1")
            Case "Blue"
                Application.Goto Sheet5.Range("A1")
        End Select
    End If
End Sub