genracela
08-25-2010, 05:55 PM
Hello again!
I'm having difficulty with my select code:
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
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!!!
I'm having difficulty with my select code:
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
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!!!