Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t()
If Intersect(Target, Range("B3, C4, D12, E9, H3")) Is Nothing Then Exit Sub
t = Array("B3", "C4", "D12", "E9", "H3", "H12")
Range(t(Application.Match(Target.Address(0, 0), t, 0))).Select
End Sub