Private Sub Worksheet_Activate()
Cells(3, 6).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$F$4" Then Cells(5, 6).Select
If ActiveCell.Address = "$F$6" Then Cells(6, 6).Select
If ActiveCell.Address = "$F$7" Then Cells(3, 8).Select
If ActiveCell.Address = "$H$4" Then Cells(4, 8).Select
If ActiveCell.Address = "$H$5" Then Cells(3, 6).Select
End Sub