Issue on filling grouped shapes

Dear gurus,

I've racked my brain for this seemingly easy issue without solution; so, I turn to you for help!

I've got a bunch of groups shapes (maps of some European states). Some countries consist of incontiguous territories, like France, Italy etc. I failed to apply such method to them while succeding in some other single shapes!

Formula:

Shapes.Range(Array("Italy")).Fill.ForeColor.RGB=RGb(255,255,0)

What's really weird is that a macro snippet is recorded on changing the "visible" attribute via Selection panel.

Pls refer to the attachment for details. Your help is much appreciated! Have a nice weekend!