Private Sub ComboBox1_Change()
Dim y As Double, z As String
If Me.ComboBox1.MatchFound = True Then
y = Application.Match(Me.ComboBox1, Range(Me.ComboBox1.RowSource), 0) - 1
z = Cells(Range(Me.ComboBox1.RowSource).Row + y, Range(Me.ComboBox1.RowSource).Column).Address
Range(z).Select
End If
End Sub