select two objects without bond

[#1]

I need to create a macro to connect two objects.
When selecting one object the second is also selected.

[#2]

use a macro with a if statement and that is all.

Sub WisselWeergaveGrafiek()
set v = ActiveDocument.Variables("TerugNaarGrafiek")
strValue = v.GetContent.String
if strValue=1 then
v.SetContent "0",true
else
v.SetContent "1",true
end if
end Sub

[#3]

Do you show me a example? Please.

[#4]

See above

[#5]

THANK YOU BUT I STILL DO NOT KNOW HOW TO APPLY TO MACRO.

I'll EXPLAIN.

FOR EXAMPLE:

FIRST OBJECT I HAVE THREE CONTRIES:

BRAZIL, EUA, CANADA

SECOND OBJECT I HAVE FOUR CONTRIES:

BRAZIL, EUA, CANADA, MEXICO

WHEN I SELECT THE FIRST OBJECT (FOR EXAMPLE BRAZIL); THE SECOUND OBJECT ALSO IS SELECTED SHOWING BRASIL.

THANKS FOR UNDERSTANDING