Использовать worksheet_selectChange.По сути, код будет выглядеть так:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("B10").Address Then
Dim rng As Range
Set rng = Range("A2")
Range(rng.Value).Select
End If
End Sub
Я жестко закодировал диапазон адресов для ясности.