Compile Error: Wrong number of arguments or invalid property assignment .... help!

I have 2 sheets in a workbook. the first sheet is Checklist2 and the 2nd sheet is Results (2). I have Rounded Rectangle Obects on the sheet Checklist 2. What i want is, when someone clicks on a rounded Rectangle Obect it goes to Results (2) sheet and puts in "TRUE" in cell R8, then goes back to the original sheet Checklist2 and changes the color of the rounded rectangle object to green. The name of the rounded rectangle object is Rounded Rectangle 16. I assigned a macro to the Rounded Rectangle Object, so when someone clicks on it, it runs the macro. Why am i getting a compile error?????
Any help anyone could provide would be greatly apprecaited. :Here is my code:

Sub Rounded_Rectangle_16_Yes()
'
Rounded_Rectangle_16_Yes Macro
'
Sheets("Results (2)").Select
Range("R8").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("R9").Select
Sheets("Checklist2").Select
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 16")).Select
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
        .Solid
    End With
End Sub