两组代码合并后，有一级无效，寻求高手修改！

[qq_33669478]

Private Sub worksheet_change(ByVal Target As Range)
If Intersect(Target, [H5,X4]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$5" Then
[X4] = [H5]
Else
[H5] = [X4]
End If
If Intersect(Target, [H7,y6]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$7" Then
[y6] = [H7]
Else
[H7] = [y6]
End If
Application.EnableEvents = True
End Sub

[日立奔腾浪潮微软松下联想]

这是VB呀，应该发到VB版

[qq_33669478]

刚来初到，又是外行，谢谢指点。