Hi - having trouble finding an exact answer to my problem.

Trying to select named shapes based on interaction from user within a table. Basically the user selects a country, the country changes color. This works well when I specifically call out each individual name:

ActiveSheet.Shapes.Range(Array([NorthAmerica])).Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent2
but when I try to involve the target, i'm having trouble...

    For Each strRNG In Target


        Debug.Print ActiveSheet.Shapes.Range(Array([strRNG])).Name
        
    Next strRNG
I have no idea what I'm missing to get this to work. I've tried a few different approaches but need a fresh set of eyes.

Thanks.