Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, c As Range
x = UCase(Left([B7], 1) & Mid([B7], 4, 1))
For Each c In Rows(9).SpecialCells(xlCellTypeFormulas)
If UCase(Left(c, 1) & Mid(c, 4, 1)) = x Then Application.Goto c(-7), True: c.Select: Exit For
Next
End Sub