Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim aa As String, dove If Not Intersect(Target, Range("A1:A10")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub aa = Target.Formula dove = Split(aa, "!") dove(0) = Mid(dove(0), 2) Sheets(dove(0)).Select Sheets(dove(0)).Range(dove(1)).Select End If End Sub