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

CodePudding user response:

This is a VB ah, should be sent to the VB version

CodePudding user response:

Arrived early to, it is the layman, thank you for your advice,