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

[powercell99]

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

[Leith Ross]

Hello powercell99,

Welcome to the Forum!

Here is your macro with a few revisions. It is rare in VBA to have to activate or select an object before an action is performed on it. This is why your macro is shorter.

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