Automatic Select Based on Cell Value

[genracela]

Hello again!

I'm having difficulty with my select code:

[VBA]
Sub SelectItem()
If Range("D2") = "A" Then
Range("A16").Select
Else
If Range("D2") = "B" Then
Range("A31").Select
Else
If Range("D2") = "C" Then
Range("A46").Select
Else
If Range("D2") = "D" Then
Range("A73").Select
End If
End If
End If
End If
End Sub
[/VBA]


I just want to automatically select a cell when I select an item in Column D2. But unfortunately my code is not working.

I attached a dummy file for easier understanding.

Please help!

Thanks!!!

[austenr]

try changing it to a select case. also, put it in the worksheet change event

[genracela]

Ok I'll try...

[austenr]

try this:

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("D2")
Case "A"
Range("A16").Select
Case "B"
Range("A31").Select
Case "C"
Range("A46").Select
Case "D"
Range("A73").Select
End Select
End Sub
[/VBA]

[Bob Phillips]

Should be Target Austen

[vba]

Select Case Target
[/vba]

[austenr]

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target
Case "A"
Range("A16").Select
Case "B"
Range("A31").Select
Case "C"
Range("A46").Select
Case "D"
Range("A73").Select
End Select
End Sub [/VBA]

Thanks for spotting that Bob.