Checkbox Form Control Application Caller When Grouped

I have coming from the Forms Controls within a Sheet 6 CheckBox.

for the following countries: "Spain", "France", "UK", "Italy", "Germany" and "EUROPE"

when Europe is selected the I select all the Check Boxes at once by Macro, if Europe is selected and I unselect Europe, then I unselect all the countries by Macro.

When Europe is selected and then I press for eg in Spain, the Spain is not selected and then I unselect Europe, by macro.

This works fine, and my macro does the job OK.

Code:

Sub mCountries()
On Error Resume Next: Application.ScreenUpdating = False
Dim wCaller As String: wCaller = Application.Caller
Dim aCheckBoxes(): aCheckBoxes = Array("cBoxSpain", "cBoxFrance", "cBoxItaly", "cBoxGermany", "cBoxUK")
Dim X As Long: X = -4146
Dim Y As Long

[Code]....

But if My 6 CheckBoxes are grouped... the Macro does do the job How can I refer to a shpes withing the Grouped Shape to apply the selection and/or to unselect??